- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 加载其他表数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84950)
-- 发布时间：2016/5/13 16:02:00
-- 加载其他表数据
师，我设计了科目表，然后设计了属于科目表的窗口。
窗口有两件控件，一个是下拉组合框控件Dropbox，一个是Table控件。
其他表分别是科目表1，科目表2。
要求：
当下拉组合框控件Dropbox的值为“企业会计制度科目”时，科目表及窗口控件table加载科目表1，
当下拉组合框控件Dropbox的值为“非营业组织会计科目”时，科目表及窗口控件table加载科目表2，
在窗口ValueChanged事件代码为：
Dim Filter As String
Dim s As String = e.Form.Controls("DropBox1").Value
Sel ect Case s
Case "企业会计制度科目"
Tables("会计科目_Table1").Fill("Sel ect * From {科目表} Where " & Filter, False)
Case "非营业组织会计科目"
Tables("会计科目_Table1").Fill("Sel ect * From {科目表1} Where " & Filter, False)
End Sel ect
运行后出现错误，如附件
请老师帮助
[此贴子已经被作者于2016/5/13 16:02:37编辑过]
-- 发布时间：2016/5/13 16:36:00
--
Dim Filter As String = "1=1"
Dim s As String = e.Form.Controls("DropBox1").Value
Sel ect Case s
Case "企业会计制度科目"
Tables("会计科目_Table1").Fill("Sel ect * From {科目表} Where " & Filter, False)
Case "非营业组织会计科目"
Tables("会计科目_Table1").Fill("Sel ect * From {科目表1} Where " & Filter, False)
End Sel ect
-- 发布时间：2016/5/13 17:21:00
--
试了很多代码，都不得行咯。。。
-- 发布时间：2016/5/13 17:21:00
--
不会很谢谢老师了
-- 发布时间：2016/5/13 17:22:00
--
发错了哦，是不过很谢谢老师了。。。。
-- 发布时间：2016/5/13 17:23:00
--
出什么问题？报什么错？
-- 发布时间：2016/5/13 17:24:00
--
其他高手没有这样的做过吗，有的话请指导一下吧
-- 发布时间：2016/5/13 17:25:00
--
代码没问题啊
-- 发布时间：2016/5/13 17:29:00
--
是不是因为科目表指定了列名称的原因啊
-- 发布时间：2016/5/13 17:30:00
--
报什么错啊