bindingsource

السلام عليكم ..

لو كان الــ DataSource للــ BindingSource .. هو من نوع DataTable .. نحصل على السجل الحالي كمايلي :

 private void bindingSource1_PositionChanged(object sender, EventArgs e)
    	{
        	DataRowView rv = (DataRowView)bindingSource1.Current;
        	DataRow row = rv.Row;
        	MessageBox.Show(row["col2"].ToString());
    	}

أما لو كان الــ DataSource للــ BindingSource .. هو من نوع

List<SomeObject>

فيكون الــ bindingSource1.Current من نوع SomeObject .

أخي الغالي : شكرا لك لاستجابتك

بشكل آخر أو باختصار ، لدي داتاسيت فيها جدول ، و أريد الحصول على قيمة العمود الأول كلما حركت السجلات بواسطة Bindingsource

و ذلك بواسطة الفيجوال بيسيك

أشكرك مرة أخرى

جرب هذا الكود فهو يعمل لدى فى برنامج صغير للسائقين

  Private Sub TFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TFirst.Click
        MovefirstFunction()
    End Sub

    Private Sub TNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TNext.Click
        MoveNextFunction()
    End Sub

    Private Sub TPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPr.Click
        MovePreviousFunction()
    End Sub

    Private Sub TLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TLast.Click
        MoveLastFunction()
    End Sub

    Private Sub MovefirstFunction()
        Me.BindingContext(MainDataset, "DRIVERS").Position = 0
        CRow = Me.BindingContext(MainDataset, "DRIVERS").Position
        DisplayData()

        ChangePosition()
        TLast.Enabled = True
        TNext.Enabled = True
        TPr.Enabled = False
        TFirst.Enabled = False

    End Sub
    Private Sub MoveNextFunction()
        Me.BindingContext(MainDataset, "DRIVERS").Position += 1
        CRow = Me.BindingContext(MainDataset, "DRIVERS").Position
        DisplayData()
        ChangePosition()

        TFirst.Enabled = True
        TNext.Enabled = True
        TPr.Enabled = True
        TLast.Enabled = True
        If Me.BindingContext(MainDataset, "DRIVERS").Position = _
        Me.BindingContext(MainDataset, "DRIVERS").Count - 1 Then

            TNext.Enabled = False
            TLast.Enabled = False
        End If


    End Sub
    Private Sub MovePreviousFunction()
        Me.BindingContext(MainDataset, "DRIVERS").Position -= 1
        CRow = Me.BindingContext(MainDataset, "DRIVERS").Position
        DisplayData()
        ChangePosition()

        TFirst.Enabled = True
        TNext.Enabled = True
        TPr.Enabled = True
        TLast.Enabled = True

        If Me.BindingContext(MainDataset, "DRIVERS").Position = 0 Then
            TPr.Enabled = False
            TFirst.Enabled = False

        End If

    End Sub
    Private Sub MoveLastFunction()
        Me.BindingContext(MainDataset, "DRIVERS").Position = Me.BindingContext(MainDataset, "DRIVERS").Count - 1
        CRow = Me.BindingContext(MainDataset, "DRIVERS").Count - 1
        ChangePosition()
        DisplayData()

        TLast.Enabled = False
        TNext.Enabled = False
        TPr.Enabled = True
        TFirst.Enabled = True

    End Sub
    Public Sub ChangePosition()


        Ttextbox1.Text = Me.BindingContext(MainDataset, "DRIVERS").Position + 1 & _
                 " From " & Me.BindingContext(MainDataset, "DRIVERS").Count 
        If Me.BindingContext(MainDataset, "DRIVERS").Count = 0 Then
            TLast.Enabled = False : TNext.Enabled = False
            TPr.Enabled = False : TFirst.Enabled = False

        End If

    End Sub
    Sub DisplayData()

        Try

            If Me.BindingContext(MainDataset, "DRIVERS").Count > 0 Then
                With MainDataset.Tables("DRIVERS").Rows(CRow)

                    Me.TextBox1.Text = .Item("D_NO")
                    Me.TextBox2.Text = .Item("D_Name")
                    Me.TextBox3.Text = .Item("D_Id")
                    Me.TextBox4.Text = .Item("D_Mobile")
                    Me.TextBox5.Text = .Item("D_LicDate")
                    Me.TextBox6.Text = .Item("D_Notes")

                End With

            End If
        Catch ex As Exception

            MsgBox(ex.Message)
        End Try
    End Sub

ألف شكر لك صديقي

و جزاك الله خيراً

مشي الحال