以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  表名可以引用变量吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98238)

--  作者：蓝蚂蚁 --  发布时间：2017/3/27 7:55:00 --  表名可以引用变量吗 描述：多个表的结构相同，引用同一个下拉窗口，选择下拉窗口所填入的数据一样。请问：如何实现这个功能。 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("产品编号")【这里红色的的代码如何写，难道一个表要做一个下拉窗口？】   后面的代码省略...........

--  作者：有点蓝 --  发布时间：2017/3/27 9:00:00 --   Tables(str1).Current("产品编号") 或者 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 e.Form.DropTable IsNot Nothing Then             e.Form.DropTable.Current("产品编号") = tbl.Current("产品编号")         End If