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

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

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

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

关于加载问题 发帖心情

Post By：2020/4/7 19:18: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 & "'"

Filter = "[经办人] = '"Tables("客户信息").Cols("经办人") "'" '这个是实现A表的经办人的值是这“客户信息”表的“经办人”列的值

DataTables("A").LoadFilter = Filter

DataTables("A").Load()

下面代码有误，请老师，帮纠正，谢谢，

Filter = "[经办人] = '"Tables("客户信息").Cols("经办人") "'" '这个是实现A表的经办人的值是这“客户信息”表的“经办人”列的值

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/8 0:39:00 [显示全部帖子]

老师，看还是没找问题，请您解答一下，谢谢

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/8 11:14:00 [显示全部帖子]

老师，原来A表是有数据，
图片点击可在新窗口打开查看

此主题相关图片如下：加载.jpg

执行后效果如图，无数据显示

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/8 16:00:00 [显示全部帖子]

老师，请帮看一下，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:加载问题 - 副本.table

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/8 18:52: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 & "'"

Filter = "[经办人] = '"Tables("客户信息").Cols("经办人") "'" '这个是实现A表的经办人的值是这“客户信息”表的“经办人”列的值

DataTables("A").LoadFilter = Filter

DataTables("A").Load()

下面代码有误，请老师，帮纠正，谢谢，

Filter = "[经办人] = '"Tables("客户信息").Cols("经办人") "'" '这个是实现A表的经办人的值是这“客户信息”表的“经办人”列的值

红色改为您Filter = "销售日期>= #" & dt1 & "# And 销售日期<= #" & dt2 & "# and [经办人] = '" & Tables("客户信息").current("经办人") & "'"，

即使注掉，Filter = "[经办人] = '" & User.Name & "'"，也没有用，

需求就是“加载A表的”经办人“的数据，A表的”经办人“一是，来自当前用户，二是“客户信息”表的“经办人”列的值，这来二个来源都A表的”经办人“当前用户的数据

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/8 19:01:00 [显示全部帖子]

上面代码除红色不能执行，其他是可执行，红色部操作，

是为了解决，经办人被替换，比如张三被小明替换，涉及被替换前后的数据，所以要客户表经办人来结合为同一个人

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/9 14:17:00 [显示全部帖子]

老师，还是跟6楼一样，无数据显示

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/9 15:21:00 [显示全部帖子]

老师，取出是全部数据，与需求不一样，可能我表达没清楚

需求：

比如：

A表的数据：

日期：2020-04-02 客户：东南实业经办人：小明

日期：2020-04-08 客户：东南实业经办人：张三（原小明被张三代替）

当前登记用户是张三，那 Filter = "[经办人] = '" & User.Name & "'"，加载到只有张三，

也就是04-08及其之后客户：东南实业的数据，而之前04-08及其之后客户：东南实业的数据，

他是加载不到，因为经办人是小明。

所以只能修改客户表经办人与当前用户一致，才可取完整的数据

有点绕。

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/9 17:27:00 [显示全部帖子]

一，原始数据

此主题相关图片如下：加载1.jpg

二，要加载，或加载后的效果

此主题相关图片如下：加载2.jpg

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/4/9 23:19:00 [显示全部帖子]

只能实现那功能都可以，没特别需求，不是如何实现，请老师指导一下，谢谢

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

总数 18 1 2 下一页

主题：关于加载问题