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

Question

Private Sub Form_Load()
  Set Rs = New Recordset
  Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic
        cmbHth.Text = Rs!gcID
end subPrivate 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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

改为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

Answer 7

改为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

Answer 8

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