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

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

 
此主题相关图片如下：33.jpg

窗口的选择按钮代码如下：

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  ' 获得已经选择的集合
            Tables("销售订单_table1").Rows.AddNew()  ' 在此表上逐行增加
                sum = sum +1
                MessageBox.Show(sum)   ' 测试执行情况
                Tables("销售订单_table1").Current("产品名称") = dr("产品名称")
                Tables("销售订单_table1").Current("型号") = dr("型号")
                Tables("销售订单_table1").Current("规格") = dr("规格")
            Next

end select

end if

现在的问题是：红色这行好像不会执行，在Tables("销售订单_table1）

这个表上不会增加行，只会在当前行上改变

谢了！