以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]删除指定2列的空行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98131)
--  作者：紫色幽魂
--  发布时间：2017/3/24 16:53:00
--  [讨论]删除指定2列的空行
请问下我需要删除检测人员和返修人员的两列都是空行的，需要怎么改下面的代码

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)
--  作者：有点色
--  发布时间：2017/3/24 17:03:00
--  
MainTable = Tables("人员周期统计")
DataTables("人员周期统计").DeleteFor("检测人员_"& ry &" Is null And 返修_"& ry &" Is null ")
--  作者：紫色幽魂
--  发布时间：2017/3/24 17:14:00
--  回复：（有点色）MainTable = Tables("人员周期统计")...
明白，感谢