为什么记录是空的时候，下移记录，而text里的值不变，是原来的值？简单问题

[xxy802]

Private Sub Form_Load()
Set Rs = New Recordset
Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic
cmbHth.Text = Rs!gcID
end sub

Private Sub Label20_Click()
Rs.MoveNext
cmbHth.Text = Rs!gcID
End Sub
为什么rs是空的时候，下移记录，而cmbHth.Text里的值不变，是原来的值？
而rs非空的时候，cmbHth.Text的值显示？

[xxy802]

Private Sub Form_Load()
On Error Resume Next

Set Rs = New Recordset
Rs.Open "select gcID,cgrq,cls,lxdh,qkje,hkje,hkrq,jbr,clmc,bz,syjzyd,gg,sl,dj,fkbj,qkye,dw from T_clb", Cn, adOpenStatic, adLockOptimistic
Call display

Call textEditFalse



End Sub

[xxy802]

Private Sub Label20_Click()

On Error Resume Next

If Rs.EOF Then
MsgBox "最后一条记录！", vbOKOnly, "提示"
Exit Sub
Else
Rs.MoveNext
Call display

End If
End Sub

[xxy802]

Private Sub display()

cmbHth.Text = CStr(Rs!gcID)
txtCgrq.Text = CStr(Rs!cgrq)
cmbCls.Text = CStr(Rs!Cls)
txtLxdh.Text = CStr(Rs!lxdh)
cmbJbr.Text = CStr(Rs!jbr)
cmbClmc.Text = CStr(Rs!clmc)
txtQkje.Text = CStr(Rs!qkje)
txtHkje.Text = CStr(Rs!hkje)
txtQkye.Text = CStr(Rs!qkye)
txtHkrq.Text = CStr(Rs!hkrq)
txtSyjz.Text = CStr(Rs!syjzyd)
cmdgg.Text = CStr(Rs!gg)
cmdsl.Text = CStr(Rs!sl)
cmddj.Text = CStr(Rs!dj)
Combo1.Text = CStr(Rs!dw)
txtBz.Text = CStr(Rs!bz)


End Sub
多谢

[goodname008]

哪条记录是空的啊?? :(

[goodname008]

顺便说一句：
Rs.Open "select gcID,cgrq,cls,lxdh,qkje,hkje,hkrq,jbr,clmc,bz,syjzyd,gg,sl,dj,fkbj,qkye,dw from T_clb", Cn, adOpenStatic, adLockOptimistic
这句如果是选择所有字段的话可以这样写：
Rs.Open "select * from T_clb", Cn, adOpenStatic, adLockOptimistic

[xxy802]

都有可能
比如
cmbJbr.Text = CStr(Rs!jbr)
cmbClmc.Text = CStr(Rs!clmc)
txtQkje.Text = CStr(Rs!qkje)
txtHkje.Text = CStr(Rs!hkje)
txtQkye.Text = CStr(Rs!qkye)
txtHkrq.Text = CStr(Rs!hkrq)
txtSyjz.Text = CStr(Rs!syjzyd)
cmdgg.Text = CStr(Rs!gg)
cmdsl.Text = CStr(Rs!sl)
cmddj.Text = CStr(Rs!dj)

[xxy802]

goodname008(卢培培，LPP Software) 多谢指教

[goodname008]

怎么看都不有错啊？！？！
方便的话能把程序打个包传过来我看看吗？

[e-mail]

[xxy802]

好

[xxy802]

goodname008(卢培培，LPP Software)
发过去了，谢谢

[goodname008]

正在收..............
收完后马上看。 :)
收完了。

[xxy802]

第一条和第二条之间移动就看出来了

[goodname008]

没什么问题啊？
字段是空的时候，Combo就是空的，正常啊？！？！

[xxy802]

我的天，我晕到

在我这就不行
我的系统是xp

[goodname008]

我这也是XP啊？！？

我是这样做的：
用VB打开你的lianxi\rx.jpg工程文件，然后按F5运行。
第一条记录显示出5个字段的值，因为其他字段都是空的，这正常。
然后不管怎么移动，显示的字段都和表中的数据吻合，没问题啊？！ :(

[xxy802]

最近才用vb出现的问题莫名其妙，什么原因？？

[goodname008]

是说你那和我这不一样吗？
对了，你的VB装SP5了没有？
如果没装的话应该装上SP5试试。

[goodname008]

http://www.dapha.net/down/list.asp?id=1353

VB6 SP5的补丁。

[xxy802]

我刚才在别的窗体上试了，没有问题，莫名其妙，
十分感谢你

[goodname008]

有时候总是出现莫名其妙的问题，呵呵。 :)