主题：请教选择多行后，在调用它的表上同时增加选择的多行错误

1、升级到最新的版本

2、代码改为：

Dim tbl As Table = Tables("选择产品_Table2")   ' 定义窗口上的表
If tbl.Current IsNot Nothing Then
    Select Case Select_cping     ' 获得调用它的表名称, Select_cping     为全局变量
        Case "销售订单_table1"     ' 从销售订单_table1 来
            Dim sum As Integer
            '   Tables("销售订单_Table1").Focus
            For Each dr As Row In tbl.GetCheckedRows  ' 获得已经选择的集合
                Dim r As Row = Tables("销售订单_table1").Rows.AddNew()  ' 在此表上逐行增加
                r("产品名称") = dr("产品名称")
                r("型号") = dr("型号")
                r("规格") = dr("规格")
            Next
    End Select
End If

既然筛选了，你就让新增行符合筛选条件就得了：

Dim tbl As Table = Tables("选择产品_Table2")   ' 定义窗口上的表
If tbl.Current IsNot Nothing Then
    Select Case Select_cping     ' 获得调用它的表名称, Select_cping     为全局变量
        Case "销售订单_table1"     ' 从销售订单_table1 来
            Dim sum As Integer
            '   Tables("销售订单_Table1").Focus
            For Each dr As Row In tbl.GetCheckedRows  ' 获得已经选择的集合
                Dim r As Row = Tables("销售订单_table1").Rows.AddNew()  ' 在此表上逐行增加
                r("产品名称") = dr("产品名称")
                r("型号") = dr("型号")
                r("规格") = dr("规格")

                r("单据编号") = Tables("销售订单").Current("单据编号")
            Next
    End Select
End If