关于加载报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于加载报错

共有3756人关注过本帖树形打印复制链接主题：关于加载报错

lin98

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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

关于加载报错 发帖心情

Post By：2021/4/27 14:40:00 [只看该作者]

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Dim Filter As String

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Filter = "业务员= User.name " Or "审批人= User.name "

DataTables("表B").LoadFilter = Filter

DataTables("表B").Load()

执行后，报错：从字符串“业务员= User.name ”到类型“Long”的转换无效。

有点蓝

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

加好友

发短信

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

Post By：2021/4/27 14:45:00 [只看该作者]

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Filter = "业务员= User.name " Or "审批人= User.name "

改为

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# and (业务员= '" & User.name & "' Or 审批人= '" & User.name & "' )"

和日期的拼接方法一样啊，难道换一个列名就不会用了？！

lin98

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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2021/4/28 12:51:00 [只看该作者]

老师，有以下问题，如何实现：

1.什么人查看什么数据的权限，这个要表属性设计好，还是上面加载方式好？

2，由于上面“订单”表有“业务员和审核人”的字段，可以上面代码实现，但实际应用有经常是跨部门人员或设定人按相应条件，查看数据，不在“订单”表体现，但与其已有字段有关系，如订单表的业务员是当用户名=张三，与用户表的用户名=张三的上级是刘六，小明，如何实现订单加载是当前用户是订单表的业务员张三的上级的数据。

问题一：一对一（业务员的上级只一个，比如，业务员：张三，上级：刘六）

2.1如何实现加载当前用户是刘六的订单数据？

问题二：一对多（业务员的上级只一个，比如，业务员：张三，上级：刘六，小明）

2.2如何实现加载当前用户是业务员：张三的上级，刘六或小明的订单数据？也就是上级中的任意一个人为当前用户。