主题：[求助]代码

加入筛选条件

If MainTable.Name = "采购动态分析" Then
    Dim f As New Filler
    DataTables("采购动态分析").DataRows.Clear() '清除原有数据
    f.SourceTable = DataTables("入库明细")
    f.SourceCols = "供应商_名称"
    f.DataTable = DataTables("采购动态分析")
    f.DataCols = "客户"
    f.Filter = "供应商_名称 is not null"
    f.Fill()
    DataTables("采购动态分析").DataCols("采购_数量").Recalc()   
End If