主题：复制订单时订单明细也复制

初学，要实现以下功能，看过视频，搜过贴子和google仍找不到思路（可能是搜索方式不得法），请论坛老师帮忙

现有订单表 订单编号为001

另有订单明细表  001项下有数据

订单编号001     商品A

订单编号001     商品B

现在我要复制订单表中此条数据，即001,复制后订单明细表中商品A和商品B也同样复制到订单明细中去，要如何操作？

好的，我先做上来

两个表 订单与订单明细

建了一个窗口  录入窗口 有一个克隆按钮 ，要实现点击克隆按钮 克隆订单数据及关联下的订单明细表中数据

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:同时复制两表.rar

实现了，感觉有点酸的代码，学习了

Dim pr As DataRow = Tables("订单").Current.DataRow
Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
Dim idx As Integer = val(DataTables("订单").Compute("max(订单ID)")) + 1
Dim dr As Row = Tables("订单").Addnew
dr("订单ID") = Format(idx,"000")
For Each dc As DataCol In DataTables("订单").DataCols
    If dc.Name <> "订单ID" Then
        dr(dc.name) = pr(dc.name)
    End If
Next
For Each cr As DataRow In crs
    Dim mr As DataRow  = DataTables("订单明细").addnew
    mr("订单ID") = Format(idx,"000")
    For Each dc As DataCol In DataTables("订单明细").DataCols
        If dc.Name <> "订单ID" Then
            mr(dc.name) = cr(dc.name)
        End If
    Next
Next