| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 相同记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150655) |
| -- 作者：susanhe -- 发布时间：2020/6/3 21:46:00 -- [求助] 相同记录 你好，请问在表A中，第一列，第三列和第五列的记录相同时，提示有重复记录并将记录用红色字体表示， 请问在按钮代码中表示 |
| -- 作者：有点蓝 -- 发布时间：2020/6/4 8:41:00 -- 添加一个临时列“标记” 按钮事件 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 |