一个关于组合框的问题~！！！！

cdw991501

请问可不可以实现，在一个文本框中输入内容，之后在1个组合框中自动搜索到此内容的相关其它信息（信息是唯一的，下拉框内仅有一行），再之后，在另一个文本框中自动显示其它信息内容，谢谢专家们。
（注：我做到了前一步，可后一步总不行，总要点选组合框里的内容后，另一个文本框才有内容显示）

VB代码如下：（说明：年龄和Text18 是文本框，“年龄1”是组合框）

Private Sub 年龄_Change()
Dim a, b, c, d
If Val(年龄.Text) < 7 Then
     Text18 = ""
ElseIf Val(年龄.Text) >= 7 And Val(年龄.Text) < 18 Then
    性别.SetFocus
    c = 性别.Text
    年龄.SetFocus
    a = 年龄.Text
    b = "SELECT  BMI.性别 , BMI.年龄, BMI.轻体重BMI切点, BMI.超重BMI切点 ,BMI.肥胖BMI切点 FROM BMI WHERE BMI.年龄 = val(" & a & ") and BMI.性别 Like '*" & c & "*'"
   年龄1.RowSource = b
   年龄1.Requery
   Text18 = 年龄1.Column(3)
ElseIf Val(年龄.Text) >= 18 Then
  d = "SELECT  BMI.性别 , BMI.年龄, BMI.轻体重BMI切点, BMI.超重BMI切点 ,BMI.肥胖BMI切点 FROM BMI WHERE BMI.年龄 = 18 "
    年龄1.RowSource = d
    年龄1.Requery
    Text18 = 年龄1.Column(3)
End If
   End Sub

cdw991501

xiexie~~!!!

cdw991501

ding~~~!!!!

cdw991501

ding~~~!!!!

xbcai

为什么总要点选组合框里的内容后，另一个文本框才有内容显示?因为在没有点组合框前,组合框是空的,只有点击后,下拉的内容才在组合框显示出来.不点击,说明你没有选择,点击后,才有选择.

cdw991501

有没有不用点选组合框，自合框自动显示查到的内容

hope678

好像没有吧~·