DataTables(e.form.name & "_table1").AddUserStyle("选中", Color.Red, Color.White)
全选按钮Dim tbl As Table = Tables(e.form.name & "_table1")
For Each dr As Row In tbl.Rows dr.Locked = TrueNext
tbl.Refresh
drawcell代码
If e.Row.Locked Then e.Style = "选中"End If