2017-01-22 62 views
0

如何将组合框和列表框添加/获取(将显示成员的值和名称与.NET相同)?如何在excel中添加/获取组合框中的项目VBA

基本上,我想显示名称给用户,并从下拉框选择姓名后,我想基于名称选择进一步使用得到说明

使用下面的代码我加入名称到组合框,但不知道怎么加DESC为itmeindexColumn(这是从DB DESC列)。 (同样喜欢valuemember,Displaymember在.NET组合框)

Dim rs As New ADODB.Recordset 
Dim sqltextexec As String 
Set rs = New ADODB.Recordset 

sqltextexec = " SELECT Name , Name + '-' + Code 'Desc' from Employee " 
    rs.Open sqltextexec, cn 
    rs.MoveFirst 
With Sheets("Sheet1").ComboBox1 
    .Clear 
    Do 
     .ComboBox1.AddItem rs![Name] 
     rs.MoveNext 
    Loop Until rs.EOF 
End With 
+0

http://stackoverflow.com/help/someone-answers –

回答

1

首先,你必须在提出片断一个错字

.ComboBox1.AddItem rs![Name] - >.AddItem rs![Name]

来指代选定的索引和组合框的文本,分别使用.ListIndex.Value。您也可以使用.Text作为文本。例如:

Private Sub ComboBox1_Change() 
    Debug.Print ComboBox1.ListIndex, ComboBox1.Value, ComboBox1.Text 
End Sub 
+0

但我怎样才能增加价值为组合框和组合框的值项目不应该显示给用户。 – user1818042