第一次用DBCombo 不熟 怎么绑数据库

[hhfh]

Dim Rst_Cli_Trade As ADODB.Recordset
Set Rst_Cli_Trade = New ADODB.Recordset
Dim Strsql As String
Rst_Cli_Trade.CursorLocation = adUseClient

Strsql = "sp_BigClass_List 6"
Strsql = "Select * From BigClass Where BigType=6"
Rst_Cli_Trade.Open Strsql, Cn, adOpenStatic, adLockOptimistic, adCmdText

With DBCombo1
Set .DataSource = Rst_Cli_Trade
.BoundColumn = "BigClassId"

Set .RowSource = Rst_Cli_Trade
.ListField = "BigClassName"
End With

Rst_Cli_Trade.Close
Set Rst_Cli_Trade = Nothing
怎么显示有问题

上面是显示所有记录

我想指定的记录 是默认的被选择字段 怎么写代码
如BigClassId=23

[faysky2]

多试几下就搞定了

[dingzhihui]

自学自通呀

[hhfh]

好像没有additem这个方法 添加数据?

[rose_886886]

DBCOMBO空间的列表用ADDITEM方法添加数据项的
而DBCOMBO空间由和它相连的DATA控件的RECORDSET对象中的字段中的数据自动添加数据项

[rose_886886]

呀 上边写错了 第一行是 COMBOX

[hhfh]

我想DataCombo1
第一项 我要添加"请选择"这个 怎么加?

[abc2025]

ado控件也可以实现你的要求

[hhfh]

我搞错了 应用DataCombo控件&Adodc控件

想指定的记录 是默认的被选择字段 怎么写代码
如BigClassId=23

[hhfh]

With DataCombo1

Set .RowSource = Adodc1
.BoundColumn = "BigClassId"
.ListField = "BigClassName"
.BoundText = "603"
End With

问题搞定

来者接分