Dim Filter As String
For Each dc As DataCol In DataTables("表名").DataCols
NextFilter = Filter.SubString(5)