Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"} Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"} dim dr1 As DataRow = DataTables("quhuolu").Current Dim dr2 As DataRow = DataTables("发货详单").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next