منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم عندما اضغط علي صف في داتا قريد فيو يتم وضع البيانات فوق في 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

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

[attachment=28400]

كود :

   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, 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

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

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

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

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

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

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

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

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

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

كود :

       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