以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  删除行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64157)
--  作者：zhangxl1964
--  发布时间：2015/2/6 8:33:00
--  删除行
老师：你好！

      怎样在窗口中删除行时加上条件
   if  Tables("订单").rows("金额") then \'订单的金额列为零时删除行  这一行怎样修改？
       With Tables("订单")
     If .Current IsNot Nothing Then
        .Current.Delete
     End If
     End With
   End If
请帮助修改。

谢谢！
--  作者：Bin
--  发布时间：2015/2/6 8:36:00
--  
 With Tables("订单")
     If .Current IsNot Nothing Then
       if . Current("金额")=0 then
        .Current.Delete
        end if
     End If
End With