(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

عدل الشرط بما يناسب كودك... 
وسلامتك..

(31-12-23, 12:17 AM)Taha Okla كتب : بصراحة لا أعلم كيف يعمل مشروعك 
نقول قضاء وقدر، أو عجيبة من العجائب ؟؟ لا أعلم..

فيه عندك بالمشروع الجملة السحرية (لما تشوف خطأ طنش) : 

كود :

On Error Resume Next

المفروض كـ مبرمج أن لا تستخدمها إلا في حالة الضرورة القصوى،، (وحتى لا أعرف أين هي الضرورة القصوى)
وليس في كل مكان .. 
وليس مع التعامل مع قواعد البيانات أبداً..

نصيحة : 
- أعد بناء مشروعك من الصفر بدون هذه الجملة ..
- وإن توقفت عند مرحلة ما - أرفع وقتها مشروعك لطلب التعديل ..
- أما أي تعديل على هذا المشروع لا فائدة منه.. لأنه مليء بالأخطاء..

نصيحة ثانية : 
تعلم التعامل مع قواعد البيانات في الوضع المتصل.. 
وأمزج بين الوضعين المتصل والغير متصل وستحصل على شيء مميز..