29-12-23, 08:12 PM
لا بد أن لديك قيمة مميزة في السجلات لا يمكن أن تتكرر في السجلات مثلا رقم أو اسم أو أي حقل ما
فهذا سنعتمد عليه كشرط لعمل فلترة لبيانات السجلات فلا يعرض إلا السجل الأخير :
على فرض أن حقل رقم (ID) ونوعه (حقل نصي) موجود عندك وهو أول حقل في الجدول وهو رقم مميز لا يتكرر..
فيكون الكود :
عدل الشرط بما يناسب كودك...
وسلامتك..
فهذا سنعتمد عليه كشرط لعمل فلترة لبيانات السجلات فلا يعرض إلا السجل الأخير :
على فرض أن حقل رقم (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عدل الشرط بما يناسب كودك...
وسلامتك..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».