通过窗口-按钮根据父表中“数量”列在子表新增相应数量的行，并带有父表制定列的信息

adr订单明细表中“数量”列的格式是短整数

谢谢各位版主！

For i As Integer = Tables("订单明细").TopPosition To Tables("订单明细").BottomPosition
Dim adr As Row  = Tables("订单明细").Rows(i)
    If adr.IsNull("客户要求产品型号") = False Then
       Dim fdr As DataRow = DataTables("发货记录").Find("客户要求产品型号= \'" & adr("客户要求产品型号") & "\'")

       If fdr Is Nothing Then

       Dim bdr As DataRow = DataTables("发货记录").AddNew(adr("数量"))
                  
                    bdr("订单号") = adr("订单号")
                    bdr("客户要求产品名称") = adr("客户要求产品名称")
                    bdr("客户要求产品型号") = adr("客户要求产品型号")
                    bdr("项目单位") = adr("项目单位")
                    bdr("发货单号") = adr("发货凭证号")
        End If
    End If
Next
DataTables("发货记录").Save()
MainTable = Tables("订单明细")

这是现在的转换效果，只能新增一条记录：

此主题相关图片如下：qq截图20160630130240.png

关联关系：

此主题相关图片如下：份.bmp