| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这句动态表达式问题出在哪里？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164914) |
| -- 作者：yfy13338431925 -- 发布时间：2021/5/8 16:26:00 -- 这句动态表达式问题出在哪里？ 功能是，只读取用户自己的当天录入的数据 Dim Filter As String [此贴子已经被作者于2021/5/8 16:38:55编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/5/8 16:42:00 -- Filter=cexp( "[登记人] = \'"& user.name &"\' And [登记日期] = #{0}#", Date.Today) |
| -- 作者：yfy13338431925 -- 发布时间：2021/5/8 17:10:00 -- 太粗心了，查了若干遍，都没有发现 |
| -- 作者：yfy13338431925 -- 发布时间：2021/5/9 16:14:00 -- 蓝老师，帮我看看下面的问题是什么？报错提示是：#附近有语法错误 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
|
| -- 作者：有点蓝 -- 发布时间：2021/5/9 22:17:00 -- 看不出什么问题，自己调试一下：http://www.foxtable.com/webhelp/topics/1485.htm |