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

如题，好像在论坛上见过，但找不见了，谢谢！

 参考帮助

能否通过双击选中行行将该行添加到另一各表中？

 明显，可以，先自己做一下，参考2楼。注意doubleclick事件可用的条件。

相应用鼠标在“发货计划表”选定区域，点击按钮将选定行复制到“计划表”，按钮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

呵呵，应该这样：

 

With Tables("发货计划表")
    For i As Integer = .TopPosition To .BottomPosition
        Dim r As Row = .Rows(i)
        r.Locked = True
        Dim dr As DataRow = DataTables("计划表").AddNew()
        dr("StokvisPN") = r("StokvisPN")
        dr("生产日期") = r("发货日期")
        dr("计划数量") = r("计划数量")
    Next
End With

  

谢谢啦!