(31-10-22, 05:47 PM)عبدالله الدوسري كتب : وعليكم السلام

 

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim MyDataGridViewButton As New System.Windows.Forms.DataGridViewButtonColumn
       Me.DataGridView1.Columns.Add(MyDataGridViewButton)
       MyDataGridViewButton.DisplayIndex = Me.DataGridView1.Columns.Count
       MyDataGridViewButton.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
       Dim DataGridViewCellStyle2 As New System.Windows.Forms.DataGridViewCellStyle With {
           .Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter,
           .NullValue = "..."
       }
       MyDataGridViewButton.DefaultCellStyle = DataGridViewCellStyle2
       MyDataGridViewButton.HeaderText = "عرض موجود"
       MyDataGridViewButton.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
       AddHandler Me.DataGridView1.CellClick, Sub(oSender As Object, Args As DataGridViewCellEventArgs)
                                                  If Args.ColumnIndex = MyDataGridViewButton.Index Then
                                                      Dim Dgvr = Me.DataGridView1.Rows(Args.RowIndex)
                                                      labell.Text = Dgvr.Cells(1).Value
                                                      label_product.Text = Dgvr.Cells(2).Value
                                                      UNIT.Text = Dgvr.Cells(3).Value
                                                      DateTimePicker1.Text = Dgvr.Cells(4).Value
                                                      Qty.Text = Dgvr.Cells(5).Value
                                                      TKLFA.Text = Dgvr.Cells(6).Value
                                                      Price.Text = Dgvr.Cells(7).Value
                                                  End If
                                              End Sub

   End Sub

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

(31-10-22, 07:37 PM)المارد كتب :

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

شبيك لبيك المارد بين يديك

الخطا سطر  DisplayIndex
لازمن يكون قبل سطر  Columns.Add

اذا كلامي خطاء ساسحن في الابريق المكسور ٣٠٠ الف سنه

(31-10-22, 08:29 PM)Taha Okla كتب :

(31-10-22, 07:37 PM)المارد كتب :

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

شبيك لبيك المارد بين يديك

الخطا سطر  DisplayIndex
لازمن يكون قبل سطر  Columns.Add

اذا كلامي خطاء ساسحن في الابريق المكسور ٣٠٠ الف سنه

لا أظن هذا الخطأ الذي يقصده الأخ علي .. 
لأن هذا الخطأ لا يظهر إلا عند المحاولات العشوائية والكثيرة لعرض البيانات فعندما يختار عنصر مرجعه = -1  يظهر الخطأ ..
وهذا الخطأ يكفيه إضافة سطر تجاوز الادخال :

كود :

If Args.ColumnIndex = MyDataGridViewButton.Index Then
                                                      If Args.RowIndex < 0 Then Exit Sub '   هذا السطر

--
لكن أظن بأنك بحاجة لمارد آخر حتى تستطيع تحديد نوع خطأ لم يحدده صاحب السؤال..
و ربما ستضطر لتحضير أرواح مردة العفاريت وقد لا تنجح..
----------
الأخ عبد الله مشكوراً / كلف وقته فوق طاقته ليضع له حلاً.
والأخ علي صاحب السؤال لم يكلف نفسه بتحديد مكان الخطأ .. 

تصور أنك بعد ما أحضرت أفخر أنواع الجرانيت والرخام الشفاف وأفضل مهندس الجان أشرفوا على بناء قصر علاء الدين، 
يجيك علاء الدين بلحظة  ويقول لك : لا لا ما عجبيني الشغل، هده هده .. وأبني غيره.

(31-10-22, 08:44 PM)المارد كتب :

(31-10-22, 08:29 PM)Taha Okla كتب :

(31-10-22, 07:37 PM)المارد كتب :

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

شبيك لبيك المارد بين يديك

الخطا سطر  DisplayIndex
لازمن يكون قبل سطر  Columns.Add

اذا كلامي خطاء ساسحن في الابريق المكسور ٣٠٠ الف سنه

لا أظن هذا الخطأ الذي يقصده الأخ علي .. 
لأن هذا الخطأ لا يظهر إلا عند المحاولات العشوائية والكثيرة لعرض البيانات فعندما يختار عنصر مرجعه = -1  يظهر الخطأ ..
وهذا الخطأ يكفيه إضافة سطر تجاوز الادخال :

كود :

If Args.ColumnIndex = MyDataGridViewButton.Index Then
                                                      If Args.RowIndex < 0 Then Exit Sub '   هذا السطر

--
لكن أظن بأنك بحاجة لمارد آخر حتى تستطيع تحديد نوع خطأ لم يحدده صاحب السؤال..
و ربما ستضطر لتحضير أرواح مردة العفاريت وقد لا تنجح..
----------
الأخ عبد الله مشكوراً / كلف وقته فوق طاقته ليضع له حلاً.
والأخ علي صاحب السؤال لم يكلف نفسه بتحديد مكان الخطأ .. 

تصور أنك بعد ما أحضرت أفخر أنواع الجرانيت والرخام الشفاف وأفضل مهندس الجان أشرفوا على بناء قصر علاء الدين، 
يجيك علاء الدين بلحظة  ويقول لك : لا لا ما عجبيني الشغل، هده هده .. وأبني غيره.

لقد حكمت علي بالسجن

(31-10-22, 08:29 PM)Taha Okla كتب :

(31-10-22, 07:37 PM)المارد كتب :

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

شبيك لبيك المارد بين يديك

الخطا سطر  DisplayIndex
لازمن يكون قبل سطر  Columns.Add

اذا كلامي خطاء ساسحن في الابريق المكسور ٣٠٠ الف سنه

لا أظن هذا الخطأ الذي يقصده الأخ علي .. 
لأن هذا الخطأ لا يظهر إلا عند المحاولات العشوائية والكثيرة لعرض البيانات فعندما يختار عنصر مرجعه = -1  يظهر الخطأ ..
وهذا الخطأ يكفيه إضافة سطر تجاوز الادخال :

كود :

If Args.ColumnIndex = MyDataGridViewButton.Index Then
                                                      If Args.RowIndex < 0 Then Exit Sub '   هذا السطر

--
لكن أظن بأنك بحاجة لمارد آخر حتى تستطيع تحديد نوع خطأ لم يحدده صاحب السؤال..
و ربما ستضطر لتحضير أرواح مردة العفاريت وقد لا تنجح..
----------
الأخ عبد الله مشكوراً / كلف وقته فوق طاقته ليضع له حلاً.
والأخ علي صاحب السؤال لم يكلف نفسه بتحديد مكان الخطأ .. 

تصور أنك بعد ما أحضرت أفخر أنواع الجرانيت والرخام الشفاف وأفضل مهندس الجان أشرفوا على بناء قصر علاء الدين، 
يجيك علاء الدين بلحظة  ويقول لك : لا لا ما عجبيني الشغل، هده هده .. وأبني غيره.

(01-11-22, 01:05 AM)ali_ahmed12 كتب :

(31-10-22, 08:44 PM)المارد كتب :

(31-10-22, 08:29 PM)Taha Okla كتب :

(31-10-22, 07:37 PM)المارد كتب :

(31-10-22, 07:15 PM)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

شبيك لبيك المارد بين يديك

الخطا سطر  DisplayIndex
لازمن يكون قبل سطر  Columns.Add

اذا كلامي خطاء ساسحن في الابريق المكسور ٣٠٠ الف سنه

لا أظن هذا الخطأ الذي يقصده الأخ علي .. 
لأن هذا الخطأ لا يظهر إلا عند المحاولات العشوائية والكثيرة لعرض البيانات فعندما يختار عنصر مرجعه = -1  يظهر الخطأ ..
وهذا الخطأ يكفيه إضافة سطر تجاوز الادخال :

كود :

If Args.ColumnIndex = MyDataGridViewButton.Index Then
                                                      If Args.RowIndex < 0 Then Exit Sub '   هذا السطر

--
لكن أظن بأنك بحاجة لمارد آخر حتى تستطيع تحديد نوع خطأ لم يحدده صاحب السؤال..
و ربما ستضطر لتحضير أرواح مردة العفاريت وقد لا تنجح..
----------
الأخ عبد الله مشكوراً / كلف وقته فوق طاقته ليضع له حلاً.
والأخ علي صاحب السؤال لم يكلف نفسه بتحديد مكان الخطأ .. 

تصور أنك بعد ما أحضرت أفخر أنواع الجرانيت والرخام الشفاف وأفضل مهندس الجان أشرفوا على بناء قصر علاء الدين، 
يجيك علاء الدين بلحظة  ويقول لك : لا لا ما عجبيني الشغل، هده هده .. وأبني غيره.

لقد حكمت علي بالسجن

صوره خطأ لاتقبل رفع في ردود ليس تريد ساحر لماذا هدا كلام