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表的经办人的值是这“客户信息”表的“经办人”列的值
加好友 
发短信
Post By：2020/4/7 19:18:00 [只看该作者]
