Dim gx As WinForm.checkbox=e.Form.controls("勾选")For Each r As Row In Tables("Orderlist").Rows r("Import") = gx.CheckedNext