专家坐堂-定向后代码提示错误？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

MainTable = Tables("订单库")

Tables("订单库").OpenView("订单视图")

Dim StartDate As Date

Dim EndDate As Date

With RibbonTabs("单据管理")("单据日期查询")

StartDate = .Items("StartDate").Value

EndDate = .Items("EndDate").Value

End With

If _UserGroup ="供应商" Then

DataTables("订单库").LoadFilter= "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "# and 供应商 = \'" & _UserName & "\'"

DataTables("订单库").Load

DataTables("订单详情").LoadFilter= "[订单日期] >= #" & StartDate & "# And [订单日期] <= #" & EndDate & "# and 供应商 = \'" & _UserName & "\'"

DataTables("订单详情").Load

ElseIf _UserGroup ="客户组" Then

DataTables("订单库").LoadFilter= "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "# and 客户名称 = \'" & _UserName & "\'"

DataTables("订单库").Load

DataTables("订单详情").LoadFilter= "[订单日期] >= #" & StartDate & "# And [订单日期] <= #" & EndDate & "# and 客户名 = \'" & _UserName & "\'"

DataTables("订单详情").Load

End If