Foxtable(狐表)用户栏目专家坐堂 → [求助]如何删除特定行


  共有1631人关注过本帖树形打印复制链接

主题:[求助]如何删除特定行

帅哥哟,离线,有人找我吗?
whyxd
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
[求助]如何删除特定行  发帖心情 Post By:2017/1/10 8:48:00 [只看该作者]

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

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

这个代码要怎么写?

多谢赐教!!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
  发帖心情 Post By:2017/1/10 13:09:00 [只看该作者]

我调整下,多谢。。。

 回到顶部