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编辑过]

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

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

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

現在問題全解決啦~~~~但我不知為什麽?

我現在是刪除一條判断語句就行啦~~``

很不解,為什麽這樣就行啦.