蓝老师，帮我看看下面的问题是什么？报错提示是：#附近有语法错误
Dim Filter As String
If _username = "四级监管员" Then
DataTables("采购主表").loadFilter = cexp( "[group] = '"& _usergroup &"'And [登记日期] = #{0}#", Date.Today)
DataTables("采购主表").load
Else If _username = "单位系统管理员"
DataTables("采购主表").loadFilter = cexp("[工作单位] = '"& _combobox &"'And [登记日期] = #{0}#", Date.Today)
DataTables("采购主表").load
Else
DataTables("采购主表").loadFilter=cexp( "[登记人] = '"& _username &"'And [登记日期] = #{0}#", Date.Today)
MessageBox.Show(Filter)
DataTables("采购主表").loadFilter = Filter
DataTables("采购主表").load
End If
加好友 
发短信
Post By：2021/5/9 19:31:00 [只看该作者]
