这句动态表达式问题出在哪里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这句动态表达式问题出在哪里？

共有2227人关注过本帖树形打印复制链接主题：这句动态表达式问题出在哪里？

yfy13338431925

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

这句动态表达式问题出在哪里？ 发帖心情

Post By：2021/5/8 16:26:00 [只看该作者]

功能是，只读取用户自己的当天录入的数据

Dim Filter As String
Filter=cexp( "[登记人] = '"& user.name &"',And [登记日期] = #{0}#", Date.Today)
MessageBox.Show(Filter)
DataTables("表A").loadFilter = Filter
DataTables("表A").load

[此贴子已经被作者于2021/5/8 16:38:55编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/5/8 16:42:00 [只看该作者]

Filter=cexp( "[登记人] = '"& user.name &"' And [登记日期] = #{0}#", Date.Today)

yfy13338431925

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2021/5/8 17:10:00 [只看该作者]

太粗心了，查了若干遍，都没有发现

yfy13338431925

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/5/9 22:17:00 [只看该作者]

看不出什么问题，自己调试一下：http://www.foxtable.com/webhelp/topics/1485.htm

下一主题 >> << 上一主题

主题：这句动态表达式问题出在哪里？