Dim Filter As String For Each c As DataCol In DataTables("表A").dataCols If c.IsBoolean Then filter = filter & " and " & c.name & " = false" Else Filter= Filter & "and " & c.name & " is null " End If Next Filter = Filter.Substring(3) DataTables("表A").deletefor(filter)