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

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("经办人") & "'"

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

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

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

说明没有符合条件的数据

老师，请帮看一下，谢谢

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

要做什么功能，使用文字描述一下a

下面2个条件，第一行没有任何用处，因为被第二行覆盖了

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

Filter = "[经办人] = '" & User.Name & "'"

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表的”经办人“当前用户的数据

主题：关于加载问题