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