解决了,不过很奇怪:我觉得 Adodc2.Recordset.ActiveConnection.Execute "execute 存储过程..." 这行代码在操行前是一定要对Adodc2运行一次其他的操作;我就是用Adodc2操作了一次初始化Combox的内容后,就正常了,代码如下: Adodc2.RecordSource = "select (CategoryGroupNo + ' '+Description) as 大类 from MaCategoryGroupHD order by SeqNo " Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Do While Adodc2.Recordset.EOF = False Combo1.AddItem Adodc1.Recordset.Fields("大类") Adodc2.Recordset.MoveNext Loop Else End If 然后再执行Adodc2.Recordset.ActiveConnection.Execute "execute 存储过程..." OK~! 谁能告诉我,为什么这样的呢?
Adodc2.RecordSource = "select (CategoryGroupNo + ' '+Description) as 大类 from MaCategoryGroupHD order by SeqNo "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Do While Adodc2.Recordset.EOF = False
Combo1.AddItem Adodc1.Recordset.Fields("大类")
Adodc2.Recordset.MoveNext
Loop
Else
End If
然后再执行Adodc2.Recordset.ActiveConnection.Execute "execute 存储过程..." OK~!
谁能告诉我,为什么这样的呢?