精子饮番号大全:[求助]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
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