善于combox控件问题。

[58556758]

如果把COMBOX控件的值表连接为一个表中某的字段的值。
在输入时直接选择就行。

[海牛]

Public Sub BindDataToCombox(Byval strSql As String,objS As Object)
Dim objRs As Adodb.Recordset

Set objRs=objCon.Execute(strSql)
Do Until objRs.Eof=True
objS.Add objRs.Fields(0).Value
objRs.MoveNext
Loop
End Sub

[wea1978]

dim conn As New ADODB.Connection
dim rst As New ADODB.Recordset
dim sql As String, cn As String
Private Sub Form_Load()
cn = "dsn=mis;uid=sa;pwd=;"
conn.Open cn

If rst.State Then rst.Close
sql = "select 要显示的字段 from 表 where 条件
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
Do While rst.EOF = False
Combo1.AddItem rst!要显示的字段
rst.MoveNext
Loop
end sub

[明镜台2014]

直接设置属性就可以，不过不是用combox控件了，
因该是DBcombox控件，不知道记错没有。

[whjwsy]

QY3000(剑魔の独孤秦)说的对，应该用dbcombox,直接与数据库连接，使用很方便

[58556758]

dbcombox在工具栏中没有怎么办?

[TT008]

1.可以用企业版控件
2.可以添加控件 microsoft datalist controls 6.0
就可以得到datacombo