以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  do while语句为什么出错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71735)
--  作者：minxizai
--  发布时间：2015/7/17 0:53:00
--  do while语句为什么出错？

Dim a As Boolean =(Tables("订单明细").Current("编号") = "001")
Do While a = True
    Tables("订单明细").Current.Delete
Loop

为什么会把所有的行都删除？
图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
--  作者：程兴刚
--  发布时间：2015/7/17 2:06:00
--  
is
--  作者：yan2006l
--  发布时间：2015/7/17 9:04:00
--  

因为你的a一直都是等于true,所以循环不会停止
--  作者：大红袍
--  发布时间：2015/7/17 9:26:00
--  

直接说你的意图吧

 

Dim a As Boolean = Tables("表A").Current("第一列") = "001"
Do While a = True
    Tables("表A").Current.Delete
    a = Tables("表A").Current("第一列") = "001"
Loop