sdaEmployees.Fill(dsEmployees)
     
     




　　
     Private Sub btnLoadDataset_Click(ByVal sender As System.Object, _
　　　　　ByVal e As System.EventArgs) Handles btnLoadDataset.Click
         LoadDataSet()
     
     End Sub
     
     Private Sub Form1_Load(ByVal sender As Object, _
　　　　　ByVal e As System.EventArgs) Handles MyBase.Load
     
         ' 填入資料集內容
         LoadDataSet()
     
     End Sub
     
     Private Sub LoadDataSet()
         sdaEmployees.Fill(dsEmployees)
     
     End Sub
　　
    


　　
　　Dim cmEmployees As CurrencyManager
　　

　　

　　cmEmployees = CType(BindingContext(dsEmployees, "Employees"), _
　　　　CurrencyManager)
　　　　

     
     Private Sub btnMovePrevious_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles btnMovePrevious.Click
         cmEmployees.Position -= 1
     
     End Sub
     
     Private Sub btnMoveNext_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles btnMoveNext.Click
         cmEmployees.Position += 1
     
     End Sub
     
     Private Sub btnMoveFirst_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles btnMoveFirst.Click
         cmEmployees.Position = 0
     
     End Sub
     
     Private Sub btnMoveLast_Click(ByVal sender As Object, _
         ByVal e As System.EventArgs) Handles btnMoveLast.Click
         cmEmployees.Position = cmEmployees.Count - 1
     
     End Sub
     


     
     Private Sub PositionChanged(ByVal sender As Object, _
         ByVal e As EventArgs)
         lblPosition.Text = "紀錄" & (cmEmployees.Count.ToString) & _
             " 之 " & (cmEmployees.Position + 1).ToString
     
     End Sub
     


     
     AddHandler cmEmployees.PositionChanged, AddressOf PositionChanged
     


     
　　　Private Sub ManualDataForm_Load(ByVal sender As Object, _
　　　　　ByVal e As System.EventArgs) Handles MyBase.Load
　　　
　　　    ' 建立公用CurrencyManager物件
　　　    cmEmployees = CType(BindingContext(dsEmployees, "Employees"), CurrencyManager)
　　　
　　　    '安排事件處理常式
　　　    AddHandler cmEmployees.PositionChanged, AddressOf PositionChanged
　　　
　　　    '填入資料集內容
　　　    LoadDataSet()
　　　
　　　End Sub
     


     
     sdaEmployees.Update(dsEmployees)
     


     
　　　Private Sub btnUpdate_Click(ByVal sender As Object, _
　　　　　　ByVal e As System.EventArgs) Handles btnUpdate.Click
　　　    Dim intModified As Integer
　　　
　　　    intModified = sdaEmployees.Update(dsEmployees)
　　　    MessageBox.Show("更新" & intModified.ToString & "筆紀錄。", _
                 "更新紀錄", MessageBoxButtons.OK, _
                 MessageBoxIcon.Information)
　　　End Sub
　　　
　　　Private Sub btnAdd_Click(ByVal sender As Object, _
　　　　　　ByVal e As System.EventArgs) Handles btnAdd.Click
　　　    cmEmployees.AddNew()
　　　
　　　End Sub
　　　
Private Sub btnDelete_Click(ByVal sender As Object, _
     ByVal e As System.EventArgs) Handles btnDelete.Click
    If cmEmployees.Count <> 0 Then
        cmEmployees.RemoveAt(cmEmployees.Position)
    End If
　　　End Sub
     

     
     intModified = sdaEmployees.Update(dsEmployees)
     
     改成：
     
     cmEmployees.EndCurrentEdit
     intModified = sdaEmployees.Update(dsEmployees)
     


     
　　　Private Sub btnCancel_Click(ByVal sender As System.Object, _
　　　　　　ByVal e As System.EventArgs) Handles btnCancelAll.Click
　　　    dsEmployees.RejectChanges()
　　　
　　　End Sub
　　　Private Sub btnClose_Click(ByVal sender As System.Object, _
　　　　　　ByVal e As System.EventArgs) Handles btnClose.Click
　　　    Me.Close()
　　　
　　　End Sub