主题：如何全选逻辑列

如何全选逻辑列？？？

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

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

按上面该怎么改？