- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146870)
-- 发布时间：2020/3/4 17:07:00
-- [求助]赋值
老师好，怎样让组合框下拉链选定的表赋值给窗口2“窗口2_Table1"表。
-- 发布时间：2020/3/4 17:26:00
--
表格本身无法给别人的，只能把表格的数据复制过去
-- 发布时间：2020/3/4 17:48:00
--
老师，说错了把数据给另一个表。
-- 发布时间：2020/3/4 17:52:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("下拉框表格").Select("[金额] > 100")
Dim dr2 As DataRow = DataTables("窗口2_Table1").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("下拉框表格").Select("[金额] > 100")
Dim dr2 As DataRow = DataTables("窗口2_Table1").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
-- 发布时间：2020/3/4 18:04:00
--
老师，我的意思点击组合框列出的表名称。下面论坛上的代码是引用外部表。我要引用内部表。
Dim tj As String = "Select * Fr om {" & e.sender.text & "}"
Tables("窗口2_Table1").Fill(tj ,"数据库" ,False) \'加载Table
Tables("窗口2_Table1").ShowCheckBox = True
-- 发布时间：2020/3/4 18:12:00
--
Tables("窗口2_Table1").Fill(tj ,"" ,False)
-- 发布时间：2020/3/4 19:01:00
--
老师，标出的地方怎样修改。
Dim tj As String = "Select * Fro m {" & e.sender.text & "}"
Tables("窗口2_Table1").Fill(tj ,"" ,False) \'加载Table
Tables("窗口2_Table1").ShowCheckBox = True
-- 发布时间：2020/3/5 8:52:00
--
有什么问题？什么错误？
-- 发布时间：2020/3/5 9:37:00
--
老师好，报错。
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
对于不返回任何基表信息的 SelectCommand 不支持动态 SQL 生成。
-- 发布时间：2020/3/5 10:55:00
--
老师
此主题相关图片如下：image 1.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示隐藏列 - 副本.table |