1、Tables("表A").Filter = "第二列 = true"
2、DataRowAdded事件
dim t as table = tables("表A")t.Select(t.RowSel, t.cols("第二列").Index)