主题：默认加载外部数据源的近两天数据运行出错

Dim d As Date = Date.Today.AddDays(-2)

If User.Group <>"销售开piao" AndAlso User.Group <>"发运地磅"  Then

    DataTables("JHS").LoadFilter = "市场部 = '" & User.Group & "' and [日期] > '" & d & "'"

    DataTables("FAJHB").LoadFilter = "市场部 = '" & User.Group & "' and [日期] > '" & d & "'"

Else

    DataTables("JHS").LoadFilter ="  [日期] > '" & d & "'"

    DataTables("FAJHB").LoadFilter ="  [日期] > '" & d & "'"

End If

DataTables("JHS").Load()

DataTables("FAJHB").Load()