'如果除了客户名称列,还要同时从客户表选择其它多列内容输入到项目跟踪表,可以将DropDownClosed事件代码改为:
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("下拉客户名称_Table1")
If tbl.Current IsNot Nothing Then '
If Tables("项目跟踪表").Current IsNot Nothing Then
Dim r As Row = Tables("项目跟踪表").Current
If e.Form.DropDownBox.BindingField = "项目跟踪表.客户名称" Then
r("客户地址") = tbl.Current("详细地址") '将下拉窗口中的列同时输入==当前表中的对应列
r("客户固话") = tbl.Current("固定电话")
r("客户传真") = tbl.Current("传真")
e.Form.DropDownBox.Value = tbl.Current("客户名称") ' 下拉输入框的值=下拉窗口的值
End If
If e.Form.DropDownBox.BindingField = "项目跟踪表.设计名称" Then
r("设计地址") = tbl.Current("详细地址") '将下拉窗口中的列同时输入==当前表中的对应列
r("设计固话") = tbl.Current("固定电话")
r("设计传真") = tbl.Current("传真")
e.Form.DropDownBox.Value = tbl.Current("客户名称") ' 下拉输入框的值=下拉窗口的值'
End If
If e.Form.DropDownBox.BindingField = "项目跟踪表.业主名称" Then
r("业主地址") = tbl.Current("详细地址") '将下拉窗口中的列同时输入==当前表中的对应列
r("业主固话") = tbl.Current("固定电话")
r("业主传真") = tbl.Current("传真")
e.Form.DropDownBox.Value = tbl.Current("客户名称") ' 下拉输入框的值=下拉窗口的值
End If
End If
End If
End If
加好友 
发短信
Post By：2013/11/11 11:26:00 [只看该作者]
