- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 默认加载外部数据源的近两天数据运行出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85060)
-- 发布时间：2016/5/16 21:46:00
-- 默认加载外部数据源的近两天数据运行出错
红袍老师，我参照帮助文件在BeforeLoadOutterTableS加载了以下代码，运行错误，怎么解决啊？
此主题相关图片如下：加载外部数据源时出错.png
End If
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2016/5/16 21:49:00
--
把#改成单引号\'
-- 发布时间：2016/5/16 22:01:00
-- 回复：（大红袍）把#改成单引号'
OK，完美解决。感谢红袍老师的热心指导。
-- 发布时间：2016/5/16 22:04:00
--
红袍老师，我的窗体控件里还有个“数据刷新”控件，发现只要只要点击了这个按钮，所有数据都会加载出来，我担心的一个问题是：当数据量大时，如果点击了，完了蛋，估计加载时间就会很长。有没有办法让窗体控件也在加载近两天的数据呢？！目前我的“数据刷新”按钮的代码如下：
If User.Group <>"销售开票" AndAlso User.Group <>"发运地磅" Then
DataTables("JHS").LoadFilter = "市场部 = \'" & User.Group & " \'"
DataTables("FAJHB").LoadFilter = "市场部 = \'" & User.Group & " \'"
Else
DataTables("JHS").LoadFilter =""
DataTables("FAJHB").LoadFilter =""
End If
CurrentTable.DataTable.Load()
-- 发布时间：2016/5/17 8:24:00
--
和默认加载的用法一样
Dim d As Date = Date.Today.AddDays(-2)
If User.Group <>"销售开票" 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()