VB.NET下面ComboBox控件如何在一个Item中添加两个项呢?
如题:VB.NET下面ComboBox控件如何在一个Item中添加两个项呢?

也就是说,我这个下拉框显示的是:{"123","456","789"}而对应数据库中的值是{A,B,C}这样如何处理?
或者说如WEB中的<select name="test"><option value="A">123</option></select>这个控件,一个显示对应一个值,怎么完成呢?
如下:
初始化显示:
cmbScale_Type.Items.Clear()
cmbScale_Type.Items.Add("CAS PD-1")
cmbScale_Type.Items.Add("Magellan SL")
cmbScale_Type.Items.Add("NCR 7875")
cmbScale_Type.Items.Add("Metrologic MS2020")
cmbScale_Type.Items.Add("Weightronics NCI - 6720")
cmbScale_Type.SelectedIndex = 0
而我要的值是:{C,M,N,P,T}

[解决办法]

VB.NET code

Public Class item    Public text As String    Public value As String    ' Methods    Public Sub New(ByVal v As String, ByVal t As String)        Me.value = v        Me.text = t    End Sub    Public Overrides Function ToString() As String        Return Me.text    End FunctionEnd Class   Dim _item As item = TryCast(combobox.Items.Item(combobox.SelectedIndex),item)    If (Not _item Is Nothing) Then        Console.WriteLine(_item.value)        Console.WriteLine(_item.text)    End If
[解决办法]
添加的时候这样用：
VB.NET code
Me.comboBox.Items.Add(new   item("1",   "壹"))
[解决办法]
VB.NET code
cboCtrl.Items.Add("1",rstTemp.Item(1))cboCtrl.Items.Add("2",rstTemp.Item(2))
[解决办法]
因为combobox.Items是一个Object类型的集合，所以你可以放入任何类型的对象在里面，文本显示的是对象的ToString的结果。当然你可以用其它的方法。

声明VB的二维数组可以如下：
VB.NET code
Dim weights(,) As Object = New Object(,) {{"CAS   PD-1", 1}, {"Magellan   SL", 2}, {"NCR   7875", 3}, {"Metrologic   MS2020", 4}{"Weightronics   NCI   -   6720", 5}}
[解决办法]
对不起，我刚才写错了
cboCtrl.Items.Add(new item("1",rstTemp.Item(1)))
cboCtrl.Items.Add(new item("2",rstTemp.Item(2)))