主题：[求助] 填充条件

填充条件：不同[股piao代码]每天最大[时间]行的指定列（填充黄色部分为满足条件）

DataTables("测试3").DataRows.Clear() '清除原有数据

 

Dim f As New Filler

f.Filter = "[日期]= [日期] And [时间] = Max(时间)"

f.SourceTable = DataTables("测试2")'指定数据接收表

f.SourceCols = "股piao代码,股piao名称,主力流入,主力流出,日期,时间" '指定数据来源列

f.DataTable = DataTables("测试3") '指定数据接收表

f.DataCols = "股piao代码,股piao名称,主力流入,主力流出,日期,时间" '指定数据接收列

f.Fill() '填充数据