主题：关于getcheckdrows

GetCheckedRows

获得一个Row类型的集合，该集合包括所有复选框已经选中的行。

示例

下面的代码删除订单表中所有复选框已经选中的行：

Dim r As Row = Tables("应收款").Current
If r("选择") = True Then
    Dim nma() As String = {"购方简称","日期","销售单号","客户"} 'A表数据来源列
    Dim nmb() As String = {"客户简称","单据日期","单号","客户"} 'B表数据接收列
    Dim dr As DataRow = DataTables("日报").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
Next

以上代码实现了单行的操作。请问如何实现被选择的多行操作呢？

放在按钮里不执行，也不报错。一楼所述的帮助里的示例代码也不执行。

对啊，我也想的挺简单的，也是像这样写的，就是不执行，问题出在那里？

而且如第一楼的问题一样，示例代码经过测试也不执行