• 0
flawer

bindingsource

سؤال

السلام عليكم

لدي bindingSource مرتبطة بحقل في داتاسيت

كيف أحصل على قيمة حقل معين في السجل الحالي عندما أتنقل بين السجلات بواسطة bindingSource

شكرا لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

لو كان الــ 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 .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

  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

تم تعديل بواسطه njd
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

مشي الحال

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .