主题：多个表引用一个下拉窗口

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的数据时也需要能实现此功能，那上面粉色区域的代码是如何写的，请老师帮忙下，谢谢

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

有没有简单点方法，现在每个表事情的ValidateEdit   ChangeEdit  ChangeEdit  KeyDownEdit  都需要设定代码，如果表的数量多，这样重复代码设置也比较累