请大侠们帮帮忙！急！急！初学者虚心请教！！！！！！！！！！！！！！！

Question

利用combo1控件查询时
例如单击全部时的代码该怎么写，还有单击姓名，性别时的代码该怎么写

Answer 1

好的
单击combo1的下拉标签时
出现一个下拉列表框里面的内容是“全部，姓名，性别“那么在当单击“全部”时msflexgrid就会显示所要查询的全部数据，一次类推
我用的SQL数据库假设数据库的名字为wh,数据库表名为xs
请问在combo1里面的单击代码怎么写

Answer 2

Public Sub viewdata()      '定义显示数据的函数
 For i = 0 To 16
  If Data1.Recordset.Fields(i) <> "" Then wh(i).Text = Data1.Recordset.Fields(i) Else wh(i).Text = ""
 Next i
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
  x = Array("全部", "姓名", "性别")
  For i = 0 To 7
   Combo1.AddItem (x(i))
  Next i
  Combo1.Text = "全部"
'初始化给gys(i)赋值
  If Data1.Recordset.RecordCount > 0 Then
    Call viewdata       '调用函数
  End If
End Sub
Private Sub ComFind_Click()
'查询 
 On Error GoTo e
 
 Data1.RecordSource = "select * from wh where (wh." & Combo1.Text & "" & "like " xs " )  
 Data1.Refresh
 Call viewdata       '调用函数
 
 Exit Sub
e:
  MsgBox "抱歉!没有纪录", vbOKOnly + 32, "出错啦！"
End Sub

Answer 3

在combo1里面添加下拉项目是这样的
 Combo1.AddItem ("全部")
 Combo1.AddItem ("姓名")
 Combo1.AddItem ("性别")
以上的此段代码放在窗体加载事件里。
Private Sub Combo1_Click()
If Text2.Text = "*" Then    '此处添加一个text2.text因为你查询一个数据时，你总要条件吧。
 '查询所有生产联络单
  Adodc1.RecordSource = "select * from xs"
  Adodc1.Refresh
   Else
   With Adodc1
    .CommandType = adCmdUnknown
    .RecordSource = "select * from xs where (xs." & Combo1.Text & " like + '" + Text2.Text + "'+'%')"
    .Refresh
   End With
   End If
Adodc1.Refresh
End Sub