Dim tmpRs As New ADODB.Recordset Dim tmprd As New ADODB.Recordset Private Sub Form_Load()

Dim sh As String Set tmprd = ExecuteSQL("select * from song") '从SQL更新点唱率 If tmprd.BOF = False And tmprd.EOF = False Then tmprd.MoveLast tmprd.MoveFirst End If

Set tmpRs = ExecuteAccess("select * from song ") Do While tmptd.EOF = False If tmprd.Fields("songname") = tmprs.Fields("歌曲名") Then If tmprs.Fields("点唱次数") <> tmprd.Fields("songcount") Then tmprs.Fields("点唱次数") = tmprd.Fields("songcount")(這一句總不執行,很鬱悶) tmprs.Update tmprd.MoveNext tmprs.MoveNext End If End If Loop MsgBox "" End Sub

大家幫我看看是什麽原因~~~~很急~~~~唉~~~沒有辦法,找你們.

[此贴子已经被作者于2004-06-02 11:21:54编辑过]

如果tmprd和tmprs的第一条记录不相同，你的do while就是死循环，这时你标为红色的那部分代码永远执行不了，循环也不可能退出。要想让你的代码正确执行，前提是tmprd和tmprd记录数相同，每条记录对应的字段“songname”,“歌曲名”也必须相同。

用双循环进行比较吧，比较简单，效率可能低一点。

另外，对ado的recordset来说，无需使用movelast,movefirst来刷新记录集数(recordcount)

If tmprd.Fields("songname") = tmprs.Fields("歌曲名") Then 是这一整块都不执行，还是你在后面加说明的那一句不执行？从你的代码来看，当tmprd第一条记录的"songname"和tmprs第一条记录的"歌曲名"不相等的话，程序就进入死循环。如果只是你加说明的那句不执行，那我真是无话可说了。。。。 ------------------------------------------------------------ If tmprs.Fields("点唱次数") <> tmprd.Fields("songcount") Then tmprs.Fields("点唱次数") = tmprd.Fields("songcount")(這一句總不執行,很鬱悶) tmprs.Update tmprd.MoveNext tmprs.MoveNext End If -------------------------------------------------------- End If

[此贴子已经被作者于2004-06-02 12:29:21编辑过]

If tmprd.Fields("songname") = tmprs.Fields("歌曲名") Then 這句還是執行的.

就是為紅色的那部分不執行.但我跟蹤記錄是tmprs 的值和tmprd 的值是相等的.

所以很鬱悶,為什麽不執行~~~~~

是你這一句有問題:

If tmprs.Fields("点唱次数") <> tmprd.Fields("songcount") Then

把這一句先改成:

If tmprs.Fields("点唱次数") < tmprd.Fields("songcount") Then

或改成:

If tmprs.Fields("点唱次数") > tmprd.Fields("songcount") Then

看看能不運行過去.