见鬼了!见鬼了!
我编制了这样的几条的程序,用一个表的一个字段建立记录集,用这个记录集的记录填充一个COMBOBOX控件的LIST,
在类中的代码如下:
Public Property Get listleixing() As String
On Error Resume Next
listleixing = leitable![类型]
'得到下一个类型
GETNEXTlei
End Property
'下移
laitable.MoveNext
llaiend = laitable.EOF
End Sub
窗体的代码如下:
Private Sub Cmblistlei()
Dim cmbl As Integer
Dim i As Integer
cmbl = Mcdbexp.listleicount
For i = 0 To cmbl
Cmblei.List(i) = Mcdbexp.listleixing
Next
End Sub
程序连续运行没问题,但我在过程 Cmblistlei设断点,程序停止,我把鼠标移到
Mcdbexp.listleixing上检查值,每次移开再从新移其值都变化,相当于laitable.MoveNext,我好疑惑!见鬼了!见鬼了!
请大家帮我捉鬼!