主题：将一个表的一行或多行的值点击添加到另一张表中

相应用鼠标在“发货计划表”选定区域，点击按钮将选定行复制到“计划表”，按钮click的代码如下，但得到的结果是全部复制，而非选定行，问题处在哪？

With Tables("发货计划表")
    For i As Integer = .TopPosition To .BottomPosition
    .Rows(i).Locked = True

Next
        Dim Vals As List(of String())
        Vals = DataTables("发货计划表").GetValues("StokvisPN|发货日期|计划数量")
        For i As Integer = 0 To Vals.Count - 1
            Dim dr As DataRow = DataTables("计划表").AddNew()
            dr("StokvisPN") = Vals(i)(0)
            dr("生产日期") = Vals(i)(1)
            dr("计划数量") = Vals(i)(2)
        Next
      
       
    End With