[ahmedhhh2]

تم حل المشكله الاولي مش عارف السبب كان ايه كنت اجلب البيانات من الحقل هكذا اظن المشكله بدالة Item
dr = SavInto.ExecuteReader()
If dr.Read Then
'DataGridView1.Item(0, e.RowIndex).Value = dr.Item("tkhid")
Else
MsgBox("رقم الصنف غير موجود في قاعدة البيانات")

End If
تم التعديل هكذا

Reader22 = Cmd.ExecuteReader
While Reader22.Read
DataGridView1.Item(0, e.RowIndex).Value = Trim((Reader22("tkhid").ToString()))
End While

---

المشكله رقم 2 فعلا تم اضافة 2 قاعدة بيانات بسبب اضافة ريبورت فيو طب الحل ايه كل ما احتاج اضيف تقرير جديد واصافة جدول جديد اعيد البرنامج ولا في حل