以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何删除特定行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95089)
--  作者：whyxd
--  发布时间：2017/1/10 8:48:00
--  [求助]如何删除特定行

窗口里有一table 名称是“订单”，表有4列，列名分别为A,B,C,D.均为字符型。

想要在窗口中加一个按钮，单击按钮实现，删除A列为空值的行，B,C,D列有为空值的行，弹窗提示。

这个代码要怎么写？

多谢赐教！！
--  作者：有点蓝
--  发布时间：2017/1/10 9:03:00
--  
Dim count As Integer = DataTables("订单").Compute("Count([_Identify])","[A] Is null")
If count > 0 Then
    msgbox("删除" & count & "条记录")
    DataTables("订单").DeleteFor("[A] is null")
End If
--  作者：有点色
--  发布时间：2017/1/10 9:12:00
--  
Dim count As Integer = DataTables("订单").Compute("Count([_Identify])","[A] Is null")
If count > 0 Then
    msgbox("删除" & count & "条记录")
    DataTables("订单").DeleteFor("[A] is null")
End If
Tables("订单").Filter = "B is Null Or C is Null Or D is Null"
--  作者：whyxd
--  发布时间：2017/1/10 13:09:00
--  
我调整下，多谢。。。