描述：多个表的结构相同，引用同一个下拉窗口，选择下拉窗口所填入的数据一样。请问：如何实现这个功能。
Dim str1 As String
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("采购计划简称筛选录入窗口_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("简称")
If CurrentTable.DataTable.name="采购计划表" Then
str1="采购计划表"
End If
If CurrentTable.DataTable.name="订单表" Then
str1="订单表"
End If
Tables("str1").Current("产品编号") = tbl.Current("产品编号")【这里红色的的代码如何写，难道一个表要做一个下拉窗口？】
后面的代码省略...........
加好友 
发短信
Post By：2017/3/27 7:55:00 [显示全部帖子]
