VBÐÂÊÖÌáÎÊ£¬£¬Çë´ó¼Ò°ï²»°ïæ

Dim DbStr As String

Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Combo1.Enabled = True
Else: Combo1.Enabled = False
Combo1.Text = ""
End If
If Check1(1).Value = 1 Then
Combo2.Enabled = True
Else:
Combo2.Enabled = False
Combo2.Text = ""
End If
If Check1(2).Value = 1 Then
Combo3.Enabled = True
Else: Combo3.Enabled = False
Combo3.Text = ""
End If
End Sub

Private Sub Command1_Click()
Dim TempStr As String
TempStr = DbStr
If Check1(0).Value = 1 And Not IsNull(Combo1.Text) Then
DbStr = DbStr + "and[ÐÔ±ð]=" + Combo1.Text + ""
End If
If Check1(1).Value = 1 And Not IsNull(Combo2.Text) Then
DbStr = DbStr + "and[ÕþÖÎÃæò]=" + Combo2.Text + ""
End If
If Check1(2).Value = 1 And Not IsNull(Combo3.Text) Then
DbStr = DbStr + "and[Ìس¤]=" + Combo3.Text + ""
End If
Data1.RecordSource = DbStr
List1.Clear
DbStr = TempStr
Data1.Refresh
If Data1.Recordset.BOF Or Data1.Recordset.EOF Then
Result = MsgBox("Êý¾Ý¿â¿Õ£¡", 48, "Ìáʾ")
Exit Sub
End If
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
For I = 1 To Data1.Recordset.RecordCount
List1.AddItem Data1.Record