控件的ValueChanged事件代码为：
Dim Filter As String = "1=1"
Dim s As String = e.Form.Controls("DropBox1").Value
Sel ect Case s
Case "企业会计制度科目"
Tables("会计科目").Fill("Sel ect [_Identify],方案名称,科目编码,一级科目名称,二级科目名称,方向类别,备注, From {科目表} Where " ,"幼儿园", False)
Case "非营业组织会计科目"
Tables("会计科目").Fill("Sel ect [_Identify],方案名称,科目编码,一级科目名称,二级科目名称,方向类别,备注, From {科目表1} Where " ,"幼儿园", False)
End Sel ect
不能加载，也不提示错误。
加好友 
发短信
Post By：2016/5/13 17:32:00 [只看该作者]
