添加代碼在顯示的記錄集 (RDS) 中移動(dòng)
內(nèi)容
添加代碼在顯示的記錄集 (RDS) 中移動(dòng)
可對(duì) RDS.DataControl 對(duì)象中的 Recordset 使用 Move 方法，以此定位顯示在 Web 頁(yè)中數(shù)據(jù)綁定控件的數(shù)據(jù)記錄。例如，假設(shè)通過(guò)綁定 RDS.DataControl 對(duì)象來(lái)顯示網(wǎng)格中的 Recordset。那么，就可以將“第一”、“最后”、“下一個(gè)”和“上一個(gè)”按鈕包括進(jìn)來(lái)，使用戶(hù)可以單擊這些按鈕移動(dòng)到所顯示的 Recordset 中的第一、最后、下一個(gè)和上一個(gè)記錄。實(shí)現(xiàn)該功能的方法是在這些按鈕的 OnClick 過(guò)程中，分別地調(diào)用 RDS.DataControl 對(duì)象的 MoveFirst, MoveLast, MoveNext, 和 MovePrevious 方法。
請(qǐng)查找字串“教程：在顯示的記錄集中移動(dòng)”。復(fù)制如下腳本并粘貼在注釋后面。
SUB First_OnClick
ADC.Recordset.MoveFirst
END SUB
SUB Next_OnClick
If ADC.Recordset.EOF Then '移動(dòng)無(wú)法超出末端記錄
ADC.Recordset.MoveFirst
Exit Sub
End If
ADC.Recordset.MoveNext
END SUB
SUB Prev_OnClick
If ADC.Recordset.BOF Then '移動(dòng)無(wú)法超出頂端記錄
ADC.Recorset.MoveFirst '移出 BOF 緩沖區(qū)
ADC.Recordset.MoveLast
Exit Sub
End If
ADC.Recordset.MovePrevious
END SUB
SUB Last_OnClick
ADC.Recordset.MoveLast
END SUB