|
阅读：1538回复：2
大家能帮我看看这段VB代码什么地方错了吗？
<P> Dim shp As Line<BR> Dim strExpression As String<BR> '查找；<BR> strExpression = "ID = 3639"<BR> Set recSelection = Map1.Layers(0).SearchExpression(strExpression)<BR> 'MsgBox "ok!"<BR> '打开显示开关；<BR> Sbl = True<BR> If Not recSelection.EOF Then<BR> MsgBox "ok!"<BR> End If<BR> '设置闪烁2次；<BR> Set shp = recSelection.Fields("shape").Value<BR> Map1.FlashShape shp, 2<BR> <BR> '调用Map1_AfterLayerDraw显示查找结果；<BR> Map1.Refresh</P>
<P>每次到Set shp = recSelection.Fields("shape").Value时会出错。出错信息是不匹配</P> |
|
|
1楼#
发布于：2007-01-10 14:40
Dim shp As Line ???
|
|
|
2楼#
发布于：2006-12-19 09:57
strExpression = "ID = 3639"好像有问题
|
|
