无效的next控件变量引用

襄阳城

<p>无效的next控件变量引用</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：20 -</p>
<p>解决时间：2010-5-19 12:48</p>
<p>Private Sub form_load()</p>
<p>Dim querylayer As Boolean</p>
<p>querylayer = 0</p>
<p>Combo4.Clear</p>
<p>Dim i As Integer</p>
<p>Dim numlayers As Integer</p>
<p>numlayers = mainform.Map1.Layers.Count</p>
<p>For i = 0 To numlayers - 1</p>
<p>Combo4.AddItem (mainform.Map1.Layers.Item(i).Name)</p>
<p>Next i</p>
<p>Combo4.ListIndex = 0</p>
<p>query_dlg.Label1.Caption = "选择符合条件的要素"</p>
<p>query_dlg.Command1.Caption = "查询"</p>
<p>Dim fldlyr As mapobjects2.Field</p>
<p>With query_dlg.Combo1</p>
<p>For Each fldyr In mainform.Map1.Layers(0).Records.Fields</p>
<p>If fldlyr.Type < 20 Then</p>
<p>.AddItem fldlyr.Name</p>
<p>End If</p>
<p>Next fldlyr   “这里有问题”</p>
<p>.ListIndex = 0</p>
<p>End With</p>
<p>怎么修改，谢谢!</p>
<p>提问者： 伏剑行 - 五级</p>
<p>最佳答案</p>
<p>For Each fldyr</p>
<p>Next fldlyr</p>
<p>fldyr 比fldlyr少一个l</p>
<p>0</p>
<p>回答者：</p>
<p>伊人尤在 - 十一级   2010-5-18 15:15</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>改了还是有问题</p>
<p>算了 换一个算法</p>