[Abdellatif]

السلام  عليكم ورحمة الله

إخواني الكرام هاذا الكود يعمل بدون مشاكل فأنا أريد بعض التعديلات عليه بحيث  عند الحفظ لا يظهر في  الداتا كريدفيو إلا السجل الاخير الذي قمت بحفظه
ولكم جزيل الشكر.

كود :

Dim row As DataRow = dt.NewRow
       Dim pos As String = BindingContext(dt).Position
           row(1) = TextBox1.Text.ToString
       row(2) = TextBox2.Text.ToString
       row(3) = TextBox3.Text.ToString
       row(4) = TextBox4.Text.ToString
       row(5) = TextBox5.Text.ToString
       row(6) = TextBox8.Text.ToString
       row(7) = TextBox9.Text.ToString
       row(8) = TextBox6.Text.ToString

       dt.Rows.Add(row)
       da.Update(dt)

       D1.DataSource = dt