If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If

上面代码是帮助中一个例子，只是说明 了一个表引用，如果是多个表，比如  表A 客户列设置了下拉窗口，  在确定客户列的同时也要输入 客户的编号列   如果在编辑表B 表C的数据时也需要能实现此功能，那上面粉色区域的代码是如何写的，请老师帮忙下，谢谢

如果每个表只引用单列  则没有问题，多列同时引用的代码不知道如何写。能否通过判断当前表名来实现需要引用的例，这个如何写？

e.Form.DropTable 可以获取表

e.Form.DropDownBox 可以获取控件

根据表或者控件判断不就好了？ http://www.foxtable.com/webhelp/scr/2893.htm