添加一个临时列“标记”
按钮事件
Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("第一列")
b.Groups.AddDef("第三列")
b.Groups.AddDef("第五列")
b.Totals.AddDef("第一列",AggregateEnum.Count,"计数")
Dim dt As DataTable = b.BuildDataSource
DataTables("表A").ReplaceFor("标记",Nothing)
Dim drs As List(Of DataRow) = dt.Select("计数 > 0")
Dim dr As DataRow
For i As Integer = 0 To drs.Count - 1 Then
dr = drs(i)
DataTables("表A").ReplaceFor("标记",i,"第一列='" & dr("第一列") & "' And 第三列='" & dr("第三列") & "' and 第五列='" & dr("第五列") & "'")
End If
表A，drawcell事件
Select Case e.Col.name
Case "第一列","第三列","第五列"
If e.Row.Isnull("标记") = False Then
e.style = "样式1"
End If
End Select
加好友 
发短信
Post By：2020/6/4 8:41:00 [显示全部帖子]
