[求助]请大家帮我看看这段代码错在哪里了

headbegger

<P>程序执行这段代码就死，无法终止，只好3个键结束任务(没有响应)。晕死!!! 请大家帮我看看，我犯了哪条？？？？</P><P>With Data1.Recordset<BR>&nbsp;&nbsp;&nbsp; .MoveLast<BR>&nbsp;&nbsp;&nbsp; j = .RecordCount<BR>&nbsp;&nbsp;&nbsp; .MoveFirst<BR>... ...<BR>End With<BR>ReDim TopHightLong(j), BottomHightLong(j)<BR>... ...<BR>问题出在下面一段：<BR>With Data2.Recordset<BR>&nbsp;&nbsp;&nbsp; BottomHightLong(0) = 1 &#39;仅用于比较判断用，数据无效<BR>&nbsp;&nbsp;&nbsp; TopHightLong(0) = 1 &#39;仅用于比较判断用，数据无效<BR>&nbsp;&nbsp;&nbsp; .MoveFirst<BR>&nbsp;&nbsp;&nbsp; For i = 1 To j<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If BottomHightLong(i - 1) = 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox FirstValue &amp; &quot; 断面缺少渠底中点数据。&quot;, vbExclamation + vbOKOnly, &quot;提示&quot;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Screen.MousePointer = vbDefault<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Unload frmSplash<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If TopHightLong(i - 1) = 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox FirstValue &amp; &quot; 断面缺少桩左堤顶边点数据。&quot;, vbExclamation + vbOKOnly, &quot;提示&quot;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Screen.MousePointer = vbDefault<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Unload frmSplash<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(.Fields(&quot;备注&quot;).Value) = &quot;渠底中点&quot; Then BottomHightLong(i) = .Fields(&quot;高程(m)&quot;).Value * 1000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(.Fields(&quot;备注&quot;).Value) = &quot;堤顶边点&quot; And Trim(.Fields(&quot;位置&quot;).Value) = &quot;桩左&quot; Then TopHightLong(i) = .Fields(&quot;高程(m)&quot;).Value * 1000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FirstValue = Trim(.Fields(&quot;断面&quot;).Value)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If .EOF = False Then .MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FirstValue_Com = Trim(.Fields(&quot;断面&quot;).Value)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(.Fields(&quot;备注&quot;).Value) = &quot;渠底中点&quot; Then BottomHightLong(i) = .Fields(&quot;高程(m)&quot;).Value * 1000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(.Fields(&quot;备注&quot;).Value) = &quot;堤顶边点&quot; And Trim(.Fields(&quot;位置&quot;).Value) = &quot;桩左&quot; Then TopHightLong(i) = .Fields(&quot;高程(m)&quot;).Value * 1000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop While FirstValue = FirstValue_Com &#39;比较，如果相同则继续循环，否则结束循环<BR>&nbsp;&nbsp;&nbsp; Next i<BR>End With</P>