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