主题：如何全选逻辑列

Dim gx As WinForm.CheckBox = e.Form.Controls("全部选中")

For Each r As Row In Tables("出库明细表").Rows
    If gx.Checked = True Then
        r.Checked = False
    Else
        r.Checked = True
    End If
Next

或者：

Dim gx As WinForm.CheckBox = e.Form.Controls("全部选中")

For Each r As Row In Tables("出库明细表").Rows
         r.Checked = True
 Next