-- 作者：jinzhengbe
-- 发布时间：2015/5/4 14:07:00
-- 我想把筛选的结果添加到 rijiedan表
Dim dr As DataRow = DataTables("login").find("_Identify=" & vars("login"))
Dim d1 As Date = dr("login")
Dim d2 As Date = Date.now
Dim Filter As String = "time >= #" & d1 & "# and time <=#" & d2 & "#"
Tables("rukudan").Filter=Filter
Tables("xiaoshou").Filter=Filter
Dim f As New Filler
f.Filter = "_Identify in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("xiaoshou") \'指定数据来源
f.SourceCols = "cord,name,markprice,time,shuliang,zhiyuan,xiaoshoudanhao,pic,price,user,fanum,jiesuan,markprice,tuihuo,nnn,yu,dc,lirun,shengyu,shengyu,xiaoji" \'指定数据来源列
f.DataTable = DataTables("rijiedan") \'指定数据接收表
f.DataCols = "cord,name,markprice,time,shuliang,zhiyuan,xiaoshoudanhao,pic,price,user,fanum,jiesuan,markprice,tuihuo,nnn,yu,dc,lirun,shengyu,shengyu,xiaoji" \'数据接收列
f.Fill() \'填充数据
DataTables("rijiedan").save()
我想把筛选的 xiaoshou表的 内容 都复制到rijiedan表
上面的代码 问题出在哪里了啊？
|
-- 作者：大红袍
-- 发布时间：2015/5/4 14:10:00
--
Dim dr As DataRow = DataTables("login").find("_Identify=" & vars("login"))
Dim d1 As Date = dr("login")
Dim d2 As Date = Date.now
Dim Filter As String = "time >= #" & d1 & "# and time <=#" & d2 & "#"
Dim f As New Filler
f.Filter = "_Identify in (" & idxs.Trim(",") & ") and " & filter
f.SourceTable = DataTables("xiaoshou") \'指定数据来源
f.SourceCols = "cord,name,markprice,time,shuliang,zhiyuan,xiaoshoudanhao,pic,price,user,fanum,jiesuan,markprice,tuihuo,nnn,yu,dc,lirun,shengyu,shengyu,xiaoji" \'指定数据来源列
f.DataTable = DataTables("rijiedan") \'指定数据接收表
f.DataCols = "cord,name,markprice,time,shuliang,zhiyuan,xiaoshoudanhao,pic,price,user,fanum,jiesuan,markprice,tuihuo,nnn,yu,dc,lirun,shengyu,shengyu,xiaoji" \'数据接收列
f.Fill() \'填充数据
DataTables("rijiedan").save()
|