专家坐堂-表名可以引用变量吗Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表名可以引用变量吗  (http://foxtable.net/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