Dim gx As WinForm.CheckBox = e.Form.Controls("全部选中")
For Each r As Row In Tables("出库明细表").Rows r(逻辑列") = gx.Checked = True
Next