我测试了一下，同时引用一个下拉窗口并没有引起冲突，或者赋值错误。可以同时引用一个下拉窗口吗
下拉窗口的dropdownclosed：If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("公司基本信息下拉框_公司名称表")
If tbl.Current IsNot Nothing Then
Tables("工程相关合同定标情况表").current("地块")=tbl.current("地块") 引用下拉窗口后的赋值
Tables("工程相关合同定标情况表").current("公司名称")=tbl.current("公司名称")
End If
End If
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("公司基本信息下拉框_公司名称表") 再次引用下拉窗口后的赋值
If tbl.Current IsNot Nothing Then
Tables("合同基本信息表").current("地块")=tbl.current("地块")
Tables("合同基本信息表").current("公司名称")=tbl.current("公司名称")
End If
End If
加好友 
发短信
Post By：2018/2/2 17:11:00 [只看该作者]
