Question

VB中怎么在combobox里面加选项 以下拉列表方式出现如果连数据库取表里的值怎么做

Answer 1

在Combo1的下拉事件中加入代码，如下：
Private Sub combo1_DropDown()
Me.combo1.Clear
Dim CN As New ADODB.Connection
CN.Open"Provider=microsoft.jet.oledb.4.0;data source=" & App.Path &"\数据库名称.mdb"
DimJ As Integer
DimST As String
Dimrso As ADODB.Recordset
Setrso = New ADODB.Recordset
ST= "select * from 表名"
rso.Open ST, CN, adOpenKeyset, adLockOptimistic
IfNot rso.EOF Then
rso.MoveFirst
End If
ForJ = 1 To rso.RecordCount
Me.combo1.AddItem rso("字段名")
rso.MoveNext
NextJ
rso.Close
Set CN = Nothing
End sub

Answer 2

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "A"
Call 算法1
Case "B"
Call 算法2
Case "C"
Call 算法3
End Select
End Sub

Private Sub Command1_Click() '添加选项

Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
End Sub

Answer 3

combo1.additem "123"