Combox.additem和adodc配合冲突？

显示全部楼层 · 2008-11-3 16:07:13

在下再用Combox.additem 和adodc搭配使用时发现数据库第一条数据丢失
然后运行时也报错
具体代码如下：
Adodc2.Recordset.MoveFirst
Do Until Adodc2.Recordset.EOF = True

Combo1.AddItemAdodc2.Recordset.Fields("id").Value

Adodc2.Recordset.MoveNext

Loop
断点发现在进行循环的第二次时错误发生且数据库中第一条Id字段为空
而用Do Until Adodc2.Recordset.EOF = True

id = Adodc2.Recordset.Fields("id").Value

Combo1.List(i) = Adodc2.Recordset.Fields("id").Value

Adodc2.Recordset.MoveNext

i=i+1

Loop
就成功运行
且只用固定值如
While i0 Then Adodc2.Recordset.MoveFirst Combo1.Clear Do While Not Adodc2.Recordset.EOF() ' If Adodc2.Recordset("id").Value > 0 Then'如果是数字类型就用这个 If Trim(Adodc2.Recordset("id").Value)"" Then Combo1.AddItem Adodc2.Recordset("id").Valu...

千问 · 2008-11-3 16:07:13

问题估计是没办法解决了,只是我有些想法,供楼主参考 combox.additem,只能更改combox的内容,绝对不可能会删除数据源!这个方法没有更改数据源的能力!除非楼主对该方法重新手工写过! 所以清除数据库的问题,楼主应该集中精力寻找那些对数据源操作的语句上! 还有combox.additem后面应该用括号将字符或表达式括起来个人...

千问 · 2008-11-3 16:07:13

你还是用adodb吧adodc实在是有太多不方便的地方我觉得应该是Adodc2.Recordset.MoveNext的问题因为用adodc很少也不知道什么原因我的网盘里有combox和adodb的小例子，你要的话可以去我个人资料里找sample.rar...

Combox.additem和adodc配合 冲突？

Combox.additem和adodc配合冲突？