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的数据时也需要能实现此功能，那上面粉色区域的代码是如何写的，请老师帮忙下，谢谢
如果每个表只引用单列 则没有问题，多列同时引用的代码不知道如何写。能否通过判断当前表名来实现需要引用的例，这个如何写？
[此贴子已经被作者于2017/12/5 13:18:51编辑过]
加好友 
发短信
Post By：2017/12/5 13:11:00 [只看该作者]
