DataTables("统计").DataRows.Clear Dim f As New Filler f.SourceTable = DataTables("收入") f.DataTable = DataTables("统计") f.Filter = "项目 is not null" f.Fill()
f = New Filler f.SourceTable = DataTables("成本") f.DataTable = DataTables("统计") f.Filter = "项目 is not null" f.Fill()