[ali_ahmed12]

السلام عليكم عندما اضغط علي صف في داتا قريد فيو يتم وضع البيانات فوق في textbox
اريد كيفية انشاء زر وليكن اسمه عرض موجود في   قريد فيو يضع بيانات فوق بدل حدث double click بدل كود الاتي 

كود :

Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
       b = DataGridView1.CurrentRow.Index
       labell.Text = DataGridView1.Rows(b).Cells(1).Value
       label_product.Text = DataGridView1.Rows(b).Cells(2).Value
       UNIT.Text = DataGridView1.Rows(b).Cells(3).Value
       DateTimePicker1.Text = DataGridView1.Rows(b).Cells(4).Value
       Qty.Text = DataGridView1.Rows(b).Cells(5).Value
       TKLFA.Text = DataGridView1.Rows(b).Cells(6).Value
       Price.Text = DataGridView1.Rows(b).Cells(7).Value


   End Sub

[عبدالله الدوسري]

وعليكم السلام

     

كود :

   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

[ali_ahmed12]

(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)عبدالله الدوسري كتب : إنتظر يمكن يمر من هنا أحد السحرة فيخبرنا ما هو الخطاء
لا أنت تعرف الخطاء
ولا أنا ايضاً أعرف الخطاء
فإن شاء الله يمر من هنا ساحر يخبرنا بالأمر

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

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

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

[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 '   هذا السطر

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

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

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

[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 '   هذا السطر

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

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

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

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

[ali_ahmed12]

(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 '   هذا السطر

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

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

الخطا في سطر هدا يظهر لايكمن رفع صورة لايقبله منتدي 

كود :

       MyDataGridViewButton.DisplayIndex = Me.DataGridView1.Columns.Count

---

(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 '   هذا السطر

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

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

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

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

نعم كلامك صحيح خطا في السطر

[عبدالله الدوسري]

MyDataGridViewButton.DisplayIndex = Me.DataGridView1.Columns.Count - 1