在表售后服务的DataColChanged事件中设置如下代码
Dim dr As DataRow
dr = DataTables("下单统计").Find("客户名称 = '" & e.DataRow("客户名称") & "'")If dr IsNot Nothing Then e.DataRow("销售单号") = dr("销售单号") e.DataRow("工程地址") = dr("工程地址")End If
http://www.foxtable.com/help/topics/0625.htm
http://www.foxtable.com/help/topics/2490.htm