Foxtable(狐表)用户栏目专家坐堂 → [讨论]删除指定2列的空行


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

主题:[讨论]删除指定2列的空行

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


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
[讨论]删除指定2列的空行  发帖心情 Post By:2017/3/24 16:53:00 [只看该作者]

请问下我需要删除检测人员和返修人员的两列都是空行的,需要怎么改下面的代码

Dim g As New SQLGroupTableBuilder("人员周期统计", "检测项目")
Dim ry As String = RibbonTabs("自定义1").Groups("人员周期检测").Items("ry").Text
Dim h As String
g.C
g.Groups.AddDef("工程名称")
g.Groups.AddDef("子项名称")
g.Totals.AddDef("检测人员_"& ry &"")
g.Totals.AddDef("返修_"& ry &"")
g.VerticalTotal = True
Dim rq1 As Date
Dim rq2 As Date
With RibbonTabs("自定义1")("人员周期检测")
    rq1 = .Items("rq1").value
    rq2 = .Items("rq2").value
End With
g.Filter = "[首次检测_检测时间] >= '" & rq1 & "' And [首次检测_检测时间] <= '" & rq2 & "'"
g.Build()
MainTable = Tables("人员周期统计")
h = Tables("人员周期统计").Filter = "检测人员_"& ry &" Is null And 返修_"& ry &" Is null "
DataTables("人员周期统计").DeleteFor(h)

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/24 17:03:00 [只看该作者]

MainTable = Tables("人员周期统计")
DataTables("人员周期统计").DeleteFor("检测人员_"& ry &" Is null And 返修_"& ry &" Is null ")

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


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点色)MainTable = Tables("人员周期统计")...  发帖心情 Post By:2017/3/24 17:14:00 [只看该作者]

明白,感谢

 回到顶部