如果是使用ShowCheckBox的勾选,在筛选前,先把勾选的行的主键记录下来,比如保存到集合中,重新筛选后,再根据保存的主键记录重新勾选回来。
Dim lst As new List(of Integer)
For Each r As Row In Tables("库存查询_table2").GetCheckedRows
lst.Add(r("_Identify"))
Next
Tables("库存查询_table2").Filter = xxx
For Each r As Row In Tables("库存查询_table2").Rows
r.Checked = lst.Contains(r("_Identify"))
Next