您的位置：程序门 -> vb -> 基础类

急急!!当我从下拉列表中选择一个姓名叫王男的名字时，我希望在性别的文本框中会自动显示性别为男，不要通过添加别的按钮来实现，自动带出

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

急急!!当我从下拉列表中选择一个姓名叫王男的名字时，我希望在性别的文本框中会自动显示性别为男，不要通过添加别的按钮来实现，自动带出[已结贴,结贴人:yanhuaju9]

发表于：2007-01-30 09:27:28 楼主

想请教一个问题。当我从下拉列表中选择一个姓名叫王男的名字时，我希望在性别的文本框中会自动显示性别为男，不要通过添加别的按钮来实现，自动带出来，请教一下代码。thanks!!

发表于：2007-01-30 09:31:151楼得分:2

要读数据库的
combo1.additem rs_name.fields（1)
combo2.additem rs_sex.fields（0)

private sub combo1_click（)
combo2.listindex = combo1.listindex
end sub

发表于：2007-01-30 09:40:392楼得分:4

combox 里面默认添加男、女两个值
private sub combo1_click（)
'通过王男得到他的性别假设为变量sex
if sex= "男 " then
combo1.listindex=0
else
combo1.listindex=1
end if
end sub

发表于：2007-01-30 09:55:183楼得分:0

我是想通过在combo1中选择 "王男 "这个姓名,在文本框中（而不是在combo1中)自动出现性别 "男 ",谢谢!!!

发表于：2007-01-30 10:00:124楼得分:0

晕，那应该有数据库啊

你试试这样做，引用ado
dim con as adodb.connection
dim rs as adodb.recordset
set con = new adodb.connection
strcon = "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\计划管理系统.mdb;persist security info=false "
con.open strcon
set rs = new adodb.recordset
'table表中存储人名及性别
strsql= "select sex from table where xm= ' "& combo1.text & " ' "
rs.open strsql, con, adopenkeyset, adlockoptimistic
if rs.recordcount> 0 then
text1.text=rs（0)
end if
rs.close
set rs=nothing

发表于：2007-01-30 10:05:335楼得分:0

顶楼上。

呵呵，既然要关联，那只能数据库咯。

发表于：2007-01-30 10:35:386楼得分:0

这段代码放在哪个位置？我把它放在form-load中试过不可以。但是放在command按钮中可以，但是需要点击按钮才可以，为什么不能实现自动的呢？糊涂中、、、、期待、、、

发表于：2007-01-30 11:01:147楼得分:4

combo1_dropdown（)

发表于：2007-01-30 11:10:518楼得分:0

为什么我第一次点击下拉列表,选中 "王男 "时,性别的文本框不出现性别 "男 ",而我第二次点击下拉列表时才显示?能不能第一次点击时就让他显示呢?

发表于：2007-01-30 11:19:489楼得分:0

谢谢大家的帮忙,我知道应该怎么解决了.现在开始结帖.你们对我都有帮助,可是这个只有10分,分配一下吧