师，我设计了科目表，然后设计了属于科目表的窗口。窗口有两件控件，一个是下拉组合框控件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编辑过]
加好友 
发短信
Post By：2016/5/13 16:02:00 [只看该作者]
