这段代码怎么改才能 只复制当前行的数据,而不是整个表的数据 Post By:2013/4/11 9:28:00 [只看该作者]
Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"} Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"} For Each dr1 As DataRow In DataTables("quhuolu").Select("[取货id] Is not Null") Dim dr2 As DataRow = DataTables("发货详单").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next End If