vb 如何实现高级检索

Question

我想用vb做一个高级检索功能。1个combobox，2个textbox。其中combobox有“与”“或”两种关系。text1用来输入关键字，text2也是用来输入关键字，通过对combobox中“与”“或”的变化，检索text1和text2中的内容。即对text1 与 text2检索，text1 或 text2检索 。各位大侠快来帮帮我吧  谢谢了

Answer 1

实现检索功能最重要的是如何获得检索条件：
下面这个函数也许对你的问题有帮助，仅供参考：
Private Function GetCondition( _
    Byval iobjComboBox As ComboBox, _
    Byval iobjTextBox1 As TextBox, _
    Byval iobjTextBox2 As TextBox _
    ) As String    Dim strCondition As String
    
    If iobjComboBox.Text="与" Then
        'combobox选择"与"，其中，field1、field2是检索的字段名；
        strCondition = "WHERE field1='" & iobjTextBox1.Text & "' " _
                     & "AND   field2='" & iobjTextBox2.Text & "'"
    Else
        'combobox选择"或"
        strCondition = "WHERE field1='" & iobjTextBox1.Text & "' " _
                     & "OR    field2='" & iobjTextBox2.Text & "'"
    End If    GetCondition = strCondition 
End Function 调用时代码如下：
Dim strCondition As StringComboBox1.Text=""
ComboBox1.AddItem("与")
ComboBox1.AddItem("或")TextBox1.Text=field1值
TextBox2.Text=field2值strCondition = GetCondition( _
    ComboBox1, _
    TextBox1, _
    TextBox2)