vb 如何实现高级检索

Question

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

Answer 1

将查询语句写入对combobox的Click事件中就可以了

Answer 2

实现检索功能最重要的是如何获得检索条件： 
下面这个函数也许对你的问题有帮助，仅供参考： 
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 String ComboBox1.Text="" 
ComboBox1.AddItem("与") 
ComboBox1.AddItem("或") TextBox1.Text=field1值 
TextBox2.Text=field2值 strCondition = GetCondition( _ 
    ComboBox1, _ 
    TextBox1, _ 
    TextBox2)