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

呵呵，应该这样：

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