الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في ربط 2 داتا جريد مع بعضهم

بدأه ميدو صلاح في 17 أغسطس 2010 · 2 رد · 678 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

باختصار شديد أنا رابط 2 داتا جريد مع بعضهم وفيهم نفس عدد الحقول بس في اختلاف في البيانات طبعا ....... عملت زر أمر (حذف) داخل داتا جريد 1 لحذف السجل المحدد فعمل تمام وعملت نفس الشيء في الداتا جريد 2 عمل أوكي بس المشكلة ازاي أقدر أخلي لما اضغط على زر الحذف في داتا جريد 1 يقوم يحذف تلقائي السجل المساوي له في العدد من الداتا جريد 2

يعني أريد مثلاً عند حذف سجل رقم 3 في داتا جريد 1 يقوم يحذف تلقائي سجل رقم 3 في داتا جريد 2 ؟؟؟؟؟؟ هذه هي المشكلة

أنا عندي فيجوال دوت نت 2005 والكود الذي استخدمته هو كما يلي بس اللي بيحصل أنه بيحذف السجل في داتا جريد 1 أوكي بس في داتا جريد 2 يحذف السجل الأول فقط ؟؟؟

    Private Sub datagrid1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles datagrid1.CellContentClick
        If e.ColumnIndex = Me.datagrid1.Columns("column8").Index Then
            If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
                Exit Sub
            End If

            datagrid2(e.ColumnIndex, e.RowIndex).Value = datagrid1(e.ColumnIndex, e.RowIndex).Value

            Dim ROW As DataGridViewRow = datagrid1.CurrentRow
            datagrid1.Rows.Remove(ROW)

            Dim ROW2 As DataGridViewRow = datagrid2.CurrentRow
            datagrid2.Rows.Remove(ROW2)
        End If
    End Sub

أرجو الحل يا اخوان أو اعطائي الخطأ في الكود السابق فقد حاولت كثيرا ولكني لم أفلح في الوصول إلى حل

وشكرا

#2

قم بتغيير السطر

Dim ROW2 As DataGridViewRow = datagrid2.CurrentRow

إلى

Dim ROW2 As DataGridViewRow = datagrid2.Rows(datagrid1.CurrentRow.Index)

لكن هذا قبل حذف السطر من الجريد الأولى أى قبل السطر

datagrid1.Rows.Remove(ROW)

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

رائع أخي الكريم اشتغل 100 % أشكرك بارك الله فيك وربنا يوضعه في ميزان حسناتك وكل عام وأنت بخير

مواضيع مشابهة