为什么记录是空的时候，下移记录，而text里的值不变，是原来的值？为什么记录是空的时候，下移记录，而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的值显示？

我曾经请教过，但发现还是这个问题
http://expert.csdn.net/Expert/topic/2325/2325882.xml?temp=.2056238

[yunfeng007]

改为
Private Sub Label20_Click()
Rs.MoveNext
cmbHth.Text = iif(isnull(Rs!gcID),"",Rs!gcID)
End Sub
试试

[射天狼]

cmbHth.Text = Rs!gcID & ""
试一下吧~~

[xxy802]

谢谢二位，但都不好用

[haipingma]

Rs.Open "select isnull(gcID,'NULL') as gcID from T_clb", Cn, adOpenStatic, adLockOptimistic

[xxy802]

谢谢，但不好用
问题好像不是在这

[gzqg]

那是因为你不能把空值赋给textbox。textbox只能接收空字符串。

[MSSQL]

Private Sub Label20_Click()
Rs.MoveNext
cmbHth.Text = iif(isnull(Rs(0)),"",Rs(0))
End Sub

[lzj34]

textbox不能为空值

[yoki]

改为

Private Sub Label20_Click()
if rs.eof then
cmbhtm.text=""
else
Rs.MoveNext
cmbHth.Text = iif(isnull(Rs!gcID),"",Rs!gcID)
end if
End Sub

[whjwsy]

应该加入判断就可以解决了。

[yoki]

改为

Private Sub Label20_Click()
if rs.eof then
cmbHth.Text=""
else
Rs.MoveNext
cmbHth.Text = iif(isnull(Rs!gcID),"",Rs!gcID)
end if
End Sub

[xxy802]

还是不对

[NotReady]

你是不是隐藏了出错提示！

[yunfeng007]

单步调试一下！

[zyplwt]

更新啊

[嬉皮]

如果Rs为空，执行 Rs.MoveNext 应该会出错啊