呵呵,站在巨人肩上,精简些:Dim Filter As StringFor Each dc As DataCol In DataTables("表A").DataCols Filter = Filter & " and " & dc.Name & " Is Null" NextDataTables("表A").DeleteFor(Filter.SubString(5))
能如此活用SubString,你就是巨人,给你加精。