数据库理有两列数据，地址，编码
原来做的是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]]

支持一下

数据库理有两列数据，地址，编码
原来做的是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立刻显示与之对应的编码,不知该如何做，谢谢帮助。

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

多谢指教，收益非浅。