1. 两个表：订单1， 订单2， 1个订单窗口。订单窗口的新建订单按钮代码：
Tables("订单").AddNew()
Dim fl As Row = Tables("订单2").AddNew
fl("订单id") = Tables("订单").Current("订单id")
当新建订单时候，表订单2自动输入和表订单1的订单id
2. 跨表引用，在订单2的datacolchanged 输入代码
If e.DataCol.Name = "订单id" Then
If e.NewValue Is Nothing Then
e.DataRow("客户名称") = Nothing
Else
Dim dr As DataRow
dr = DataTables("订单").Find("[订单id] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("客户名称") = dr("客户名称")
End If
End If
End If
3.问题： 订单2的“”客户名称“”不会自动引用订单1的“客户名称“，怎么解决？
加好友 
发短信
Post By：2018/1/30 22:18:00 [只看该作者]
