主题：我想把筛选的结果添加到 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表

上面的代码 问题出在哪里了啊？

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()