Dim Filter As String For Each dc As Col In CurrentTable.Cols If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then Continue For End If If Filter > "" Then Filter = Filter & " Or " End If Filter = Filter & "[" & dc.Name & "] Like '*" & cb3 & "*'" Next CurrentTable.Filter = Filter
加好友 
发短信
Post By：2011/10/13 13:58:00 [只看该作者]
