dr-j 发表于 2006-2-17 22:42:12

故障解除回路


,我在应用程序中的循环中遇到问题。
情况是这样的:
我正在acad中进行计算,从访问中的记录集中获取一些数字。
全局内容应该是这样的:
“计算”
当 X
当 X > Y 打印文本时,值就足够了。
我现在拥有的代码看起来像这样。
我认为它有一些大缺陷...有人可以帮我吗?
会很棒
Do Until rstobj.EOF
      While Me.TextBox4.Value > Me.TextBox5.Value
      rstobj.MoveNext
    Loop
   
    If Me.TextBox4.Value Me.TextBox5.Value则
'在此处进行计算
rstobj.MoveNext
ElseIFMe.TextBox4.Value
MsgBox"计算确定"
rsobj.MoveLast
Else
'Me.TextBox4.Value=Me.TextBox5.Value
结束如果
循环
页: [1]
查看完整版本: 故障解除回路