主题：[求助]关于filter的问题

参考的是教程中“查询窗口”的代码，又做了一下延伸。

 

代码如下：

 

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        For Each dc As Col In Tables("例会档案").Cols
            Filter = "(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
        Next
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "召开日期 = #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("例会档案").Filter = Filter
    If Tables("例会档案").Rows.Count = 0 Then
        MessageBox.show("对不起,系统无相关记录!","提示")
    Else
        forms("例会档案查询窗口").open()
    End If
Else
    MessageBox.show("对不起,请输入正确的查询信息!","提示")
End If
Tables("例会档案").ApplyFilter = False

 

 

 

红色代码部分呢是希望能够模糊查找，本来是加了一个  filter as string="1=2"的，但是，又不支持日期查询了。后来删掉这个“1=2”，就写成这个样子了，这个样子肯定是不对的，

不好意思，没有学过语言，所以在部分代码的编写上有缺陷，谅解！

你这逻辑不太对, 既然遍历了所有列做模糊筛选,后面又指定列筛选.

 这样改一下

 

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        For Each dc As Col In Tables("例会档案").Cols
            Filter &= "Convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%' or "
        Next
        Filter = "(" & Filter.SubString(0,Filter.Length-4) & ")"
        msgbox(filter)
    End If
End With

to bin：其实上述代码的意图很好理解，有一个文本框和一个时间框，查找的时候既可以只通过文本框（文本框中按照常规思维方式应该不会填写日期）或者日期来检索，也可以同时选择两个框里的内容来检索。

袍哥：能否详细解释一下您给的代码，从for each后面的解释，谢谢。

For Each dc As Col In Tables("例会档案").Cols
    Filter &= "Convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%' or "
Next
Filter = "(" & Filter.SubString(0,Filter.Length-4) & ")"

 

 

主要代码是生成筛选条件。拼凑每一列形成这样的语句， (Convert(第一列,'System.String') like '%关键字%' or

Filter &= ,加&是不是固定写法还是？

Filter &= "abc"

 

等同于

 

Filter = Filter & "abc"