主题：[求助]关于筛选反查问题

drawcell事件

Dim idxs As List(Of String) = vars("idxs")
If idxs IsNot Nothing AndAlso idxs.Contains(e.Row("_Identify")) Then
    e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black)
    e.style = "样式1"
End If

筛选代码

dim t as table = Tables("表A")
Dim filter = "第一列 = '1'"
vars("idxs") = t.DataTable.GetValues("_Identify",filter)
t.Refresh