通过窗口-按钮根据父表中“数量”列在子表新增相应数量的行,并带有父表制定列的信息
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
