- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于加载问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148424)
-- 发布时间：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表的经办人的值是这“客户信息”表的“经办人”列的值
-- 发布时间：2020/4/7 19:36:00
--
可能引用符号问题
-- 发布时间：2020/4/7 20:03:00
--
这个帮助先看5遍：http://www.foxtable.com/webhelp/topics/1284.htm
-- 发布时间：2020/4/8 0:39:00
--
老师，看还是没找问题，请您解答一下，谢谢
-- 发布时间：2020/4/8 8:44:00
--
Filter = "销售日期>= #" & dt1 & "# And 销售日期<= #" & dt2 & "# and [经办人] = \'" & Tables("客户信息").current("经办人") & "\'"
-- 发布时间：2020/4/8 11:14:00
--
老师，原来A表是有数据，
此主题相关图片如下：加载.jpg
执行后效果如图，无数据显示
-- 发布时间：2020/4/8 11:56:00
--
说明没有符合条件的数据
-- 发布时间：2020/4/8 16:00:00
--
老师，请帮看一下，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:加载问题 - 副本.table |
-- 发布时间：2020/4/8 17:14:00
--
要做什么功能，使用文字描述一下a
下面2个条件，第一行没有任何用处，因为被第二行覆盖了
Filter = "销售日期>= #" & dt1 & "# And 销售日期<= #" & dt2 & "# and [经办人] = \'" & Tables("客户信息").current("经办人") & "\'"
Filter = "[经办人] = \'" & User.Name & "\'"
-- 发布时间：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表的”经办人“当前用户的数据