(#------------程式頭----------------------------------------------=)
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
(#------------程式尾----------------------------------------------=)