(#------------程式頭----------------------------------------------=) sdaEmployees.Fill(dsEmployees) (#------------程式尾---------------------------------------------=) (#------------程式頭----------------------------------------------=) (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=) (#------------程式尾---------------------------------------------=) (#------------程式頭----------------------------------------------=)    Private Sub Page_Load(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles MyBase.Load     '在此加入要初始化頁面的使用者程式碼     sdaEmployees.Fill(dsEmployees)     Me.DataBind()        End Sub (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=) Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load '在此加入要初始化頁面的使用者程式碼 sdaEmployees.Fill(dsEmployees) If Session("RecordPos") Is Nothing Then Session("RecordPos") = 0 End If DisplayRecordPos() Me.DataBind() End Sub Private Sub DisplayRecordPos()    lblRecordPos.Text = "紀錄 " & _       dsEmployees.Employees.Rows.Count.ToString & _ " 之 " & (CType(Session("RecordPos"), Integer) + 1).ToString End Sub (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=)    Private Sub Page_DataBinding(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles MyBase.DataBinding     Dim RecordPos As Integer = CType(Session("RecordPos"), Integer)     With dsEmployees.Employees(RecordPos)     lblEmployeeID.Text = .EmployeeID     txtFirstName.Text = .FirstName     txtLastName.Text = .LastName     txtTitle.Text = .Title     txtBirthday.Text = .BirthDate     txtHiredate.Text = .HireDate     txtCity.Text = .City     txtAddress.Text = .Address     End With     DisplayRecordPos()    End Sub (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=)    Private Sub btnMoveFirst_Click(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles btnMoveFirst.Click     Session("RecordPos") = 0     Me.DataBind()        End Sub        Private Sub btnMoveLast_Click(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles btnMoveLast.Click     Session("RecordPos") = dsEmployees.Employees.Rows.Count - 1     Me.DataBind()        End Sub        Private Sub btnMovePrevious_Click(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles btnMovePrevious.Click     Dim RecordPos As Integer = CType(Session("RecordPos"), Integer)         If RecordPos > 0 Then     RecordPos -= 1     End If     Session("RecordPos") = RecordPos     Me.DataBind()        End Sub        Private Sub btnMoveNext_Click(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles btnMoveNext.Click     Dim RecordPos As Integer = CType(Session("RecordPos"), Integer)     RecordPos += 1     If RecordPos > dsEmployees.Employees.Count - 1 Then     RecordPos -= 1     End If     Session("RecordPos") = RecordPos     Me.DataBind()        End Sub (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=) Private Sub SetViewPos() Dim RecordPos As Integer = CType(Session("RecordPos"), Integer) Dim ID As Long ID = dsEmployees.Employees(RecordPos).EmployeeID dvEmployees.RowFilter = "EmployeeID = " & ID.ToString End Sub (#------------程式尾----------------------------------------------=) (#------------程式頭----------------------------------------------=)    Private Sub Page_Load(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles MyBase.Load     '在此加入要初始化頁面的使用者程式碼     If Session("RecordPos") Is Nothing Then     Session("RecordPos") = 0     End If     sdaEmployees.Fill(dsEmployees)     SetViewPos()     Me.DataBind()        End Sub        Private Sub btnMovePrevious_Click(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles btnMovePrevious.Click     Dim RecordPos As Integer = CType(Session("RecordPos"), Integer)     RecordPos -= 1     If RecordPos < 0 Then     RecordPos = 0     End If     Session("RecordPos") = RecordPos     SetViewPos()     Me.DataBind()        End Sub        Private Sub btnMoveNext_Click(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles btnMoveNext.Click     Dim RecordPos As Integer = CType(Session("RecordPos"), Integer)     RecordPos += 1     If RecordPos > dsEmployees.Employees.Rows.Count - 1 Then     RecordPos -= 1     End If     Session("RecordPos") = RecordPos     SetViewPos()     Me.DataBind()        End Sub        Private Sub btnMoveFirst_Click(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles btnMoveFirst.Click     Dim RecordPos As Integer     RecordPos = 0     Session("RecordPos") = RecordPos     SetViewPos()     Me.DataBind()        End Sub        Private Sub btnMoveLast_Click(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles btnMoveLast.Click     Session("RecordPos") = dsEmployees.Employees.Rows.Count - 1     SetViewPos()     Me.DataBind()        End Sub        Private Sub Page_DataBinding(ByVal sender As Object, _       ByVal e As System.EventArgs) Handles MyBase.DataBinding     DisplayRecordPos()        End Sub (#------------程式尾----------------------------------------------=)