新手提个菜菜的问题，大家帮帮忙，关于数据库中字段值写入combobox的

[meteorliuxing]

数据库JP_sTrainSite中TSiteName字段的值要写入combo1中
我的代码是
Private Sub Combo1_Click()
Dim ConnTemp As New ADODB.Connection
Dim RsTemp As New ADODB.Recordset
Dim StrTemp As String

'Set ConnTemp = New ADODB.Connection
ConnTemp.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=JiapeiSys;Data Source=SOFTSERVER"
ConnTemp.Open

StrTemp = "select TSiteName from JP_sTrainSite"

Set RsTemp = New ADODB.Recordset
With RsTemp
.CursorType = 3
.LockType = 3
.Open StrTemp, ConnTemp
End With

Combo1.Clear
Do Until RsTemp.EOF
StrTemp = RsTemp.Fields("TSiteName")
Combo1.AddItem StrTemp
RsTemp.MoveNext
Loop
End Sub

运行以后点击combo1的按钮不激发这个事件，是什么原因呢？

[net_jun]

把代码放到 FORM 的LOAD事件中

然后循环前加一句RsTemp.MoveFrist

[hemeijun81]

把植select 出来以后 付给 combox

[射天狼]

你事件选的不对,CLICK事件是当你选择COMBO里的项目时才发生的,你还没有数据呢,你点击什么啊!!

[射天狼]

放在窗口的LOAD事件里吧!!

[yoki]

有这种事情？？
单步跟踪看看

[yoki]

哦，看错了
你可以单独写一个过程然后在窗口的load事件中调用

[阿建像熊猫]

Combo1_Click为单击后的。
可以用窗休的load事件。

[taosihai1only]

用窗休的load事件。

[BraveHorse]

在窗体初始化的时候给combol初始化，还没初始化你怎么触发combol的click事件？

[flc]

guanzhu