你表名写错了?
Dim gx As WinForm.checkbox=e.Form.controls("勾选")Dim t As Table = e.Form.controls("Table1").TableFor i As Integer = t.TopPosition To t.BottomPosition Dim r As Row = t.Rows(i) r("Import") = gx.CheckedNext