If MainTable.Name = "买卖汇总" Then
    MainTable.StopRedraw
    MainTable.DataTable.DeleteFor("")
    For Each dr As DataRow In DataTables("股票明细").Select("交易日期 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("交易日期") = dr("交易日期")
        nr("股票名称") = dr("股票名称")
        nr("股票代码") = dr("股票代码")
        nr("买入_数量") = dr("买入_数量")
        nr("买入_买入价") = dr("买入_买入价")
        nr("买入_平均价") = dr("买入_平均价")
        nr("买入_金额") = dr("买入_金额")
    Next
   
       Tables("买卖汇总").sort="股票代码,交易日期"
    MainTable.ResumeRedraw

老师，上面代码编写成有选择地复制，如图，红框内的数据不复制，即：带零的不复制
End If
此主题相关图片如下：图像 3.png

此主题相关图片如下：图像 5.png

For Each dr As DataRow In DataTables("股票明细").Select("交易日期 is not null and 买入_数量<>0")

老师，上面代码同时也排除了卖出_数量的复制，我希望当买入_数量和卖出_数量不为零时全部复制。

狐表老师谢谢