我选择一个副表A的一行,然后用它的值作为过另一个副表B的筛选条件.这样B的值随A中的选择的行而变化,也就是模拟了关联表.现在出现了这样的问题.当我向B增加行时,增加一行没有问题,后面再增加的就是空白行. 已经遇到过两次了,是什么原因呢?
A表 CurrentChanged代码:
Dim SelRow = Tables("裁剪完工统计_Table1").Current
If SelRow IsNot Nothing
Tables("裁剪完工统计_Table2").Filter = "[节点名]='" & SelRow("节点名") & "' and [订单编号]='" & SelRow("订单编号") & "'"
End If
B表增加行(转为完工单)代码:
Dim SelRow As Row = Tables(e.Form.Name & "_Table1").Current
If SelRow Is Nothing
Return
End If
Dim NewRow As Row = Tables(e.Form.Name & "_Table2").AddNew()
NewRow("订单编号")=SelRow("订单编号")
NewRow("节点名")=SelRow("节点名")
NewRow("已完工码63S")=SelRow("未完工码63S")
NewRow("已完工码66M")=SelRow("未完工码66M")
NewRow("已完工码70L")=SelRow("未完工码70L")
NewRow("已完工码73XL")=SelRow("未完工码73XL")
NewRow("已完工码76XXL")=SelRow("未完工码76XXL")
NewRow("已完工码80XXXL")=SelRow("未完工码80XXXL")
NewRow("已完工码83")=SelRow("未完工码83")
NewRow("已完工码86")=SelRow("未完工码86")
NewRow("已完工码90")=SelRow("未完工码90")
NewRow("记录日期")=Date.Today
此主题相关图片如下：无标题.png
加好友 
发短信
Post By：2013/6/7 17:20:00 [只看该作者]
