If MainTable.Name = "入账汇总" Then Dim f As New Filler f.SourceTable = DataTables("fa piao登记") f.SourceCols = "结算单位" f.DataTable = DataTables("入账汇总") f.DataCols = "结算单位" f.ExcludeExistValue = True f.Fill() DataTables("入账汇总").DataCols("当年累计入账数").Recalc() End If