数据库理有两列数据，地址，编码
原来做的是combo1选择地址后，combo2立刻显示与之对应的编码

Set rs = cn.Execute("select distinct 地址,编码 from 数据")
    rs.MoveFirst
    Do
        Combo1.AddItem rs.Fields(0).Value
        Combo2.AddItem rs.Fields(1).Value（这一行打算用text1替换掉）
        rs.MoveNext
    Loop Until rs.EOF
    rs.Close

，现在我想将combo2控件删掉，换成combo1选择地址后，
text1.text立刻显示与之对应的编码,不知该如何做，谢谢帮助。

[[it] 本帖最后由 sznt 于 2008-4-28 22:07 编辑 [/it]]

支持一下

你问的问题不太明确
Combo4.AddItem rs.Fields(0).Value
这一句 可能 combo4 下拉后，有很多的值（你数据库里有多少，就有多少值）
改成 text1.text=text1.text+rs.Fields(0).Value
text1.text 就可以有combo4里面所有的数据了
如果你想 combo4 赋值完毕后，点击combo4 选择相应的选项后，text1.text显示combo4所选的选项，那么就需要在在combo2.chick里面加上相应的代码
text1.text=combo4.text就可以了

数据库理有两列数据，地址，编码
原来做的是combo1选择地址后，combo2立刻显示与之对应的编码

 Set rs = cn.Execute("select distinct 地址,编码 from 数据")
    rs.MoveFirst
    Do
        Combo1.AddItem rs.Fields(0).Value
        Combo2.AddItem rs.Fields(1).Value（这一行打算用text1替换掉）
        rs.MoveNext
    Loop Until rs.EOF
    rs.Close

，现在我想将combo2控件删掉，换成combo1选择地址后，
text1.text立刻显示与之对应的编码,不知该如何做，谢谢帮助。

因为text1.text显示的不是combo1的数据，因此我觉得需要另外一个控件传递，或者查询数据库，combo1的数据改变一次，就查询一次数据库，然后显示将需要显示的数据放到text1控件里，但是每次都查询数据库好像有点烦。
借助另外一个控件传递比较好
Set rs = cn.Execute("select distinct 地址,编码 from 数据")
    rs.MoveFirst
    Do
        Combo1.AddItem rs.Fields(0).Value
        Combo2.AddItem rs.Fields(1).Value（这一行打算用text1替换掉）
        rs.MoveNext
    Loop Until rs.EOF
    rs.Close
你打算替换掉的这一行就不要替换了，把他的属性 visible设置为 false
然后输入这样的代码 就行了
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
Text1.Text = Combo2.Text
End Sub

其他高手有其他的好方法，接着说！

感觉不是太流畅，因为添加text控件，好多地方combo控件我都删掉了，这样就还得重新添加回来，
谢谢了，如有更好办法望不吝赐教。

Private Sub Combo1_Change()
Set rs = cn.Execute("select distinct 地址,编码 from 数据 where 地址='"+combo1.text+"'")
Text1.Text = rs.Fields(1).Value
End Sub

多谢指教，收益非浅。