处理复选框

处理复选框

Table有一个名为ShowCheckBox的逻辑属性，此属性默认为False，设为True，将在行号列显示复选框：

例如，希望在员工表的行号列显示复选框：

Tables("员工").ShowCheckBox = True

通过Table的GetCheckedRows方法，可以获得一个Row类型的集合，该集合包括所有复选框已经选中的行。

例如删除员工表中所有复选框已经选中的行：

For Each r As Row In Tables("员工").GetCheckedRows
r.Delete
Next

执行Table的ClearCheckedRows方法，可以清除所有复选框的选中标记。

例如：

Tables("员工").ClearCheckedRows

Row有一个名为Checked的逻辑属性，用于返回或设置某一行的复选框选中状态。

例如选中订单表所有折扣超过0.1的行：

For Each r As Row In Tables("订单").Rows
    If r("折扣") > 0.1 Then
        r.Checked = True
    End If
Next