以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]ComboBox 取值与显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38839)

--  作者:guoweidong
--  发布时间:2013/8/8 14:14:00
--  [求助]ComboBox 取值与显示
使用 ComboBox组件时,当你取值编号时,控件的文本框就会以编号显示,如何做到,在取编号的时候,文本框还是名称!
之前的操作都是从数据库里取,做个对照。不清楚有没有更简单的方法。

--  作者:guoweidong
--  发布时间:2013/8/8 14:22:00
--  
            Dim cmd As New SQLCommand
            cmd.ConnectionName = Vars("数据源名称")
            cmd.CommandText = "Select Isnull([公司名称],\'\') as [公司名称] From logistic Where [编号] = \'" & .Current("快运公司") & "\'"           
            e.Form.Controls("ComboBox1") .SelectedValue = cmd.ExecuteScalar
            cmd.CommandText = "Select Isnull(名称,\'\') as [名称] From [Shops] Where [编号] = \'" & .Current("店铺") & "\'"
            e.Form.Controls("ComboBox2").SelectedValue = cmd.ExecuteScalar

上面这是我之前做的方法。

--  作者:guoweidong
--  发布时间:2013/8/8 14:58:00
--  
已经想到解决方法了,使用临时表处理了。