[vbnetvbnet]

كود :

Dim WithEvents mBindingSource As New BindingSource

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mBindingSource.DataSource = DataSet1

End Sub

Private Sub mBindingSource_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mBindingSource.PositionChanged
    MsgBox(DataSet1.Tables("Table1").Rows(mBindingSource.Position).Item("name"))
End Sub