现有“出库明细表”有2个订单的6个出库单号的“未交数量”为空值
第一个问题:
'加载未交数量为空的数据
DataTables("出库明细表").LoadFilter = "[未交数量] Is Null"
DataTables("出库明细表").Load
DataTables("出库明细表").LoadChildren("订单明细表", "客户订单号", "客户订单号")
‘这样利用关联子表去加载父表的写法是否有错?因为“订单_出库”关联字段为二个:客户订单号与物料编号。
第二个问题:
为了补齐这6行数据,写了以下代码:
SystemReady = False
For Each r As Row In Tables("订单明细表").rows ’经上述加载后,只保留出库明细中未交数量为空值的数据
Dim ss,dd,ee As Integer
For Each r2 As Row In Tables("订单明细表.出库明细表").rows ‘对关联表的行进行操作
If ss = 0 Then '第一次循环直接行到订单数量
r2("未交数量") = r("订单数量")
Else
r2("未交数量") = ee - dd '上次未交一上次实送数量
End If
dd = r2("实交数量")
ee = r2("未交数量")
ss = ss +1
Next
Next
SystemReady = True
MessageBox.Show("补齐未交数量")
但上述结果不对,是不是不能对关联表的行进行操作?
[此贴子已经被作者于2015/5/13 11:26:51编辑过]