如果除了客户ID列,还要同时从客户表选择其它多列内容输入到订单表,可以将DropDownClosed事件代码改为:
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")
End
If
End
If
如果我有多个表,共享同一个下拉窗口,应该如果设置?
给个思路。谢谢。
[此贴子已经被作者于2013-6-27 18:00:37编辑过]