请问下我需要删除检测人员和返修人员的两列都是空行的,需要怎么改下面的代码
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)