[جميل علي]

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

يا أخوان عندي مشكلة ان شاء الله بسيطه 

في زر الحفظ بعد التعديل يظهر خطاء كما في الصورة



وهذا الكود

PHP كود :

 Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())



        Dim str As String = String.Format("Update [zarsw] set [alaism] = '{1}',[aljinsia] = '{2}',[nawe alhuia] = '{3}',[raqm alhuia] = '{4}',[masdar alhuia] = '{5}',[tarikh alhuia] = '{6}',[raqm lawhat alssayara] = '{7}',[eadad almurafiqin] = '{8}',[alshshakhs almurad ziaratih] = '{9}',[alskn/alqism/alshsharaka] = '{10}',[raqm kart alzzayir] = '{11}',[tarikh alddukhul] = '{12}',[waqt alddukhul] = '{13}',[aism madkhal bayanat alddu] = '{14}',[raqm madkhal bayanat alddukhul] = '{15}',[tarikh alkhuruj] = '{16}',[waqt alkhuruj] = '{17}',[aism madkhal bayanat alkhuruj ]= '{18}',[raqm madkhal bayanat alkhuruj] = '{19}' where [alrraqm]={0}", TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, id)

        Dim cmd As New OleDbCommand(str, co)
        co.Open()

        cmd.ExecuteNonQuery()
        co.Close()

        MsgBox("  تمت تعديل الزائر بنجاح")
        zarsw.Clear()
        dazarsw = New OleDbDataAdapter("select * from zarsw", co)
        dazarsw.Fill(zarsw)
        Form2.DataGridView1.DataSource = zarsw


        Close()
        Form2.Show() 


اتمنى اجد حل لديكم

وشكراً لكم

[أبو عمر]

شكل سبب المشكلة إن الجريد فارغة تماما ما فيها اي بيانات
الحل مبدئياُ قبل
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
اكتب الشرط التالي
if form.DataGridView1.rows.count=0 then exit sub

[جميل علي]

حياك أخوي ابوعمر
الجريد موجود فيه بيانات
وتم أستخدام الشرط
وعند الضغط على زر حفظ التعديل
صحيح ماظهر خطاء ولكن ماتم الحفظ

[أبو عمر]

Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
استبدله ب
DataGridView1.CurrentRow.Cells(0).Value
اذا كانت في نفس الفورم
طبعا يعتمد على قيمة أول خلية وليس الاندكس
الاندكس تحصل عليه كالتالي
Dim id As Integer =DataGridView1.CurrentRow.Index

[جميل علي]

أخوي أبو عمر اذا تقصد الجريد

فهو ليس في نفس الفورم

[أبو عمر]

طيب هل انت تغلق الفورم 2؟ والا يظل مفتوح؟

[جميل علي]

يتم أغلاق الفورم 2

---

اخوي ابوعمر ممكن تفتح الرسائل

لكي ارفق المشروع لك على الخاص

[أبو عمر]

شوف اختصارا لكل البوستات
اضف موديول وعرف فيه هذا المتغير
public Id as integer
وفي كود زر الامر اللي بيعرض لك الفورم الاخر ضع
ID =DataGridView1.CurrentRow.Index
اذا كنت تريد الاندكس وهذا لا يستقيم !!!! في حال البيانات بين جدولين
و الصواب
ID=DataGridView1.CurrentRow.Cells(0).Value
وفي كود الحفظ
احذف السطر

Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
واحذف جملة الشرط
if form.DataGridView1.rows.count=0 then exit sub

ودع باقي الكود زي ماهو اذا كان سليم

---

إذا بقيت تحدث الموضوع على طول راح تلاقيني معك للآخر _إن شاء الله _ واعتذر بالنسبة للرسائل اخي الكريم فسامحني فضلاً

[جميل علي]

هلا اخوي ابوعمر

بخصوص الرسائل احترم رغبتك والله يجزاك خير

تم التطبيق االحل

ولكن بعد الضغط على زر الحفظ
تظهر رسالة الحفظ بنجاح

ولكن لم تتم حفظ التعديلات التي اجريتها

بمعنى البيانات الجريد مثل ماهي

وشكرا

[أبو عمر]

الكود أعلاه لحفظ جديد أم لحفظ تعديل على بيانات سابقة؟

---

يا ليت تخليك متابع موضوعك الله يبارك فيك