If MainTable.Name = "买卖汇总" Then
MainTable.StopRedraw
MainTable.DataTable.DeleteFor("")
For Each dr As DataRow In DataTables("股piao明细").Select("交易日期 is not null")
Dim nr As Row = MainTable.AddNew
nr("交易日期") = dr("交易日期")
nr("股piao名称") = dr("股piao名称")
nr("股piao代码") = dr("股piao代码")
nr("买入_数量") = dr("买入_数量")
nr("买入_买入价") = dr("买入_买入价")
nr("买入_平均价") = dr("买入_平均价")
nr("买入_金额") = dr("买入_金额")
Next
Tables("买卖汇总").sort="股piao代码,交易日期"
MainTable.ResumeRedraw
老师,上面代码编写成有选择地复制,如图,红框内的数据不复制,即:带零的不复制
End If
此主题相关图片如下:图像 3.png