If MainTable.Name = "日报" Then Dim f As New Filler DataTables("日报").DataRows.Clear() f.SourceTable = DataTables("窗口1_Table1") f.SourceCols = "日期" f.DataTable = DataTables("日报") f.DataCols = "日期" f.Fill()End If
这样也不行呀