- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 填充条件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88663)
-- 发布时间：2016/8/7 9:39:00
-- [求助] 填充条件
此主题相关图片如下：填充条件.jpg
学艺不精，请前辈们给予指导，谢谢。
填充条件：不同[股票代码]每天最大[时间]行的指定列（填充黄色部分为满足条件）
DataTables("测试3").DataRows.Clear() \'清除原有数据
Dim f As New Filler
f.Filter
= "[日期]= [日期] And
[时间] = Max(时间)"
f.SourceTable = DataTables("测试2")\'指定数据接收表
f.SourceCols
= "股票代码,股票名称,主力流入,主力流出,日期,时间" \'指定数据来源列
f.DataTable
= DataTables("测试3")
\'指定数据接收表
f.DataCols
= "股票代码,股票名称,主力流入,主力流出,日期,时间" \'指定数据接收列
f.Fill()
\'填充数据
-- 发布时间：2016/8/7 12:18:00
--
Dim dt_s As DataTable = DataTables("测试2")
Dim dt_d As DataTable = DataTables("测试3")
dt_d.DataRows.Clear
For Each ary() As String In dt_s.GetValues("股票代码|日期")
Dim fdr As DataRow = dt_s.Find("股票代码 = \'" & ary(0) & "\' and 日期 = #" & ary(1) & "#", "时间 desc")
Dim ndr As DataRow = dt_d.AddNew
ndr("股票代码") = fdr("股票代码")
ndr("主力流入") = fdr("主力流入")
Next
-- 发布时间：2016/8/7 16:02:00
--
辛苦啦袍版主，周日还回来，代码正确，谢谢。