老师：
您好，我想在报价表为不同分组加载不同的数据（日期都是最近7天的，但分组为供应商的用户只能加载 [供应商] =用户名 的数据），
在AfterOpenProject中编写下面的代码 ：
For Each dt As DataTable In DataTables
Dim StartDate As Date = Date.Today().AddDays(-7)
If dt.Name = "报价表" Then
Select Case User.Group
Case "供应商"
dt.LoadFilter = "[日期] > #" & StartDate & "# and 供应商 = '" & User.Name & "'"
Forms("供应商导航栏").Open()
MainTable = Tables("原始报价表")
Case "管理员","开发者"
dt.LoadFilter = "[日期] > #" & StartDate & "# "
Forms("导航栏").Open()
MainTable = Tables("原始采购单")
End Select
Else
dt.LoadFilter = ""
End If
dt.Load()
Next
总是出现这种报错，请问是代码哪里出错了吗？？？
此主题相关图片如下：360截图20190506163239303.jpg
加好友 
发短信
Post By：2019/5/6 16:35:00 [只看该作者]
