此主题相关图片如下:填充条件.jpg
学艺不精,请前辈们给予指导,谢谢。
填充条件:不同[股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()
'填充数据