Office中国论坛/Access中国论坛

标题: 一个关于组合框的问题~！！！！ [打印本页]

作者: cdw991501 时间: 2011-2-28 17:46
标题: 一个关于组合框的问题~！！！！
请问可不可以实现，在一个文本框中输入内容，之后在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 时间: 2011-3-1 10:39
xiexie~~!!!

作者: cdw991501 时间: 2011-3-1 14:25
ding~~~!!!!

作者: xbcai 时间: 2011-3-1 16:55
为什么总要点选组合框里的内容后，另一个文本框才有内容显示?因为在没有点组合框前,组合框是空的,只有点击后,下拉的内容才在组合框显示出来.不点击,说明你没有选择,点击后,才有选择.

作者: cdw991501 时间: 2011-3-4 13:48
有没有不用点选组合框，自合框自动显示查到的内容

作者: hope678 时间: 2011-6-23 11:14
好像没有吧~·

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)