DataTables("流水表").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("另表")
f.SourceCols = "姓名,出现次数"
f.DataTable = DataTables("流水表")
f.DataCols = "正课_姓名,正课_课时"
f.Fill()