click事件
Dim t As Table = e.form.controls("Table1").Table
t.Filter = "组名 = '" & e.Sender.Text & "'"
For Each r As row in t.Rows
r.Checked = True
Next