精子饮番号大全:[求助]MAPX中的搜索?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/02 07:18:12
Sub bdh_Seach()
on error resume next

dim strSeach

strSeach = Request.QueryString("address")

Dim FindObj
Dim FoundFeature
Dim x
Dim abc
abc=0
for x =2 to Session(cMapXObject).Layers.Count

Set FindObj = Session(cMapXObject).Layers.item(x).Find
Set FoundFeature = FindObj.Search(strSeach)

if FoundFeature.FindRC Mod 10 = 1 Or FoundFeature.FindRC Mod 10 = 2 Then

Session(cMapXObject).Zoom=10
Session(cMapXObject).AutoRedraw = False
Session(cMapXObject).CenterX = FoundFeature.CenterX
Session(cMapXObject).CenterY = FoundFeature.CenterY

strOutPara = "bdhAdded|s|成功!"&Session(cMapXObject).Layers.item(x).Name&strSeach

SetSelectionStyle()

x=Session(cMapXObject).Layers.Count

else
abc=abc+1
strOutPara = "bdhAdded|s|失败!"&Session(cMapXObject).Layers.item(x).Name&strSeach&abc
end if

next

End Sub
请帮我看看是否有问题。为什么有的地图上可以搜索到图元,而有的地图搜索不到。不知道为什么。

本人email : asdfghjkl_1314#163.com