参考:
http://www.foxtable.com/help/topics/2649.htm
http://www.foxtable.com/help/topics/1358.htm
http://www.foxtable.com/help/topics/0432.htm
dr("订单编号") = dr2("订单编号")dr("出库数量") =dr2("生产数量")
Dim dr3 As DataRow = dr2.GetParentRow("父表名称")
if dr3 isnot nothing then dr("客户简称") = dr2(Parent.客户简称)
end if