标题：模糊筛选的问题

1楼

blackzhu 发表于：2011/10/11 10:39:00

dim filter as string

For Each dc As Col In CurrentTable.Cols

If Filter > "" Then

CurrentTable.Filter = "[" & dc.Name & "] Like '*" & cb3 & "*'"

End If

老大这个代码怎么改才有作用,想当前表的所有列都参与筛选.

2楼

狐狸爸爸 发表于：2011/10/11 10:41:00

Dim Filter As String
For Each dc As Col In CurrentTable.Cols
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "[" & dc.Name & "] Like '*" & cb3 & "*'"
Next
CurrentTable.Filter = Filter

3楼

blackzhu 发表于：2011/10/11 10:46:00

出错,要不要排除那些什么时间啊,数值一类的,如果要排除,怎么写代码?

4楼

狐狸爸爸 发表于：2011/10/11 10:50:00

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 & " And "
    End If
    Filter = Filter & "[" & dc.Name & "] Like '*" & cb3 & "*'"
Next
CurrentTable.Filter = Filter

5楼

blackzhu 发表于：2011/10/11 10:53:00

老大,真快,我还在写呢,你就写给我了.

6楼

blackzhu 发表于：2011/10/11 10:59:00

不起作用,怎么回事?

7楼

狐狸爸爸 发表于：2011/10/11 11:04:00

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

8楼

blackzhu 发表于：2011/10/11 11:09:00

OK,很好用

9楼

狐狸爸爸 发表于：2011/10/11 11:10:00

明白And和Or的差别了吗？

10楼

blackzhu 发表于：2011/10/11 11:14:00

哈哈,利用一个按钮筛选任何一个表的指定列以及通用查询ok啦.

共20 条记录, 每页显示 10 条, 页签: [1] [2]