30-12-23, 01:32 PM
(29-12-23, 08:12 PM)Taha Okla كتب : لا بد أن لديك قيمة مميزة في السجلات لا يمكن أن تتكرر في السجلات مثلا رقم أو اسم أو أي حقل مالقد جربت الكود ولاكن لايعمل جيدا بعدما أضغط على زر الحفظ فإنه يتم ولايظهر في الداتاكريك فيو ويظهر أول سجل في قاعدة البيانات وليس آخر سجل وشكرا
فهذا سنعتمد عليه كشرط لعمل فلترة لبيانات السجلات فلا يعرض إلا السجل الأخير :
على فرض أن حقل رقم (ID) ونوعه (حقل نصي) موجود عندك وهو أول حقل في الجدول وهو رقم مميز لا يتكرر..
فيكون الكود :
كود :
Dim row As DataRow = dt.NewRow
Dim pos As String = BindingContext(dt).Position
row(1) = TextBox1.Text.Trim
row(2) = TextBox2.Text.Trim
row(3) = TextBox3.Text.Trim
row(4) = TextBox4.Text.Trim
row(5) = TextBox5.Text.Trim
row(6) = TextBox8.Text.Trim
row(7) = TextBox9.Text.Trim
row(8) = TextBox6.Text.Trim
dt.Rows.Add(row)
da.Update(dt)
'--------------------------------------
Dim dv As New DataView
dv = dt.DefaultView
dv.RowFilter = "[ID] ='" & TextBox1.Text.Trim & "'" ' هنا ضع الشرط
'----------------------------------------
D1.DataSource = dv.ToTable
عدل الشرط بما يناسب كودك...
وسلامتك..