| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 动态加载sql 数据库 的内容 语法求组 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82992) |
| -- 作者：ljh29206 -- 发布时间：2016/3/29 14:52:00 -- 动态加载sql 数据库 的内容 语法求组 DataTables("AttCard").LoadFilter = " CrdDate > \'" & Date.Today.AddMonths(-1) & "\'" \'允许加载的数据时间为1个月 DataTables("AttCard").Load crddate 为日期列，数据库为 sql 这样写有错吗？ 不知道为什么 加载不了！ |
| -- 作者：大红袍 -- 发布时间：2016/3/29 15:18:00 -- 代码没问题，试试
DataTables("AttCard").LoadTop = "100 percent" DataTables("AttCard").LoadFilter = " CrdDate > \'" & Date.Today.AddMonths(-1) & "\'" \'允许加载的数据时间为1个月 DataTables("AttCard").Load
|
| -- 作者：ljh29206 -- 发布时间：2016/3/29 15:27:00 -- 神奇了！ 昨天还没问题， 今天发觉不行！ 袍哥你给的也不行 我换一个条件试，就没问题 DataTables("AttCard").LoadFilter = " sysflg = \'298\'"\' ‘这个不是日期列 DataTables("AttCard").Load |
| -- 作者：大红袍 -- 发布时间：2016/3/29 15:41:00 -- 是不是你日期格式有问题？看看
http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&skin=0
|
| -- 作者：ljh29206 -- 发布时间：2016/3/29 16:56:00 -- DataTables("AttCard").LoadFilter = " CrdDate > \'" & Date.Today.AddMonths(-1) & "\'" \'允许加载的数据时间为1个月 DataTables("AttCard").Load Dim f As New Filler f.SourceTable = DataTables("AttCard") \'指定数据来源 f.SourceCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" \'指定数据来源列 f.DataTable = DataTables("fstbfc_AttRecord") \'指定数据接收表 f.DataCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" \'指定数据接收列 f.Fill() \'填充数据 袍哥 请教下 以上代码 f.Fill() 填充的数据是 DataTables("AttCard").LoadFilter = " CrdDate > \'" & Date.Today.AddMonths(-1) & "\'" 局部 还是 DataTables("AttCard").loadfilter ="" 全部 加载的过程中有时会卡死！
[此贴子已经被作者于2016/3/29 16:56:26编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/3/29 17:44:00 -- 1、你加载多少数据，fillter就是操作多少数据；
2、加上systemready=false
systemready=false DataTables("AttCard").LoadFilter = " CrdDate > \'" & Date.Today.AddMonths(-1) & "\'" \'允许加载的数据时间为1个月
DataTables("AttCard").Load
Dim f As New Filler
f.SourceTable = DataTables("AttCard") \'指定数据来源
f.SourceCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" \'指定数据来源列
f.DataTable = DataTables("fstbfc_AttRecord") \'指定数据接收表
f.DataCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" \'指定数据接收列
f.Fill() \'填充数据 systemready=true
|