-- 作者:大红袍
-- 发布时间:2016/8/25 15:04:00
--
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
|