منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو (/showthread.php?tid=32620)

مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - محمد اسماعيل - 20-12-19

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


طيب انا عايز كل صف يظهر فية باول خلية بوتن او زرار استخدمت الكود التالي ولكن تحدث مشكلة اول مرة افتح الفورم بيشتغل تمام تاني مرة الاعمدة بتزيد  وكل مرة افتح الفورم الاعمدة تزيد وتتلخبط  لما حذفت كود ادال البوتن كل شيء تمام

انا حاولت اني احذف كل الاعمدة كل مرة ولكن ظهر خطأ حاولت اني احذ العمود الانسيرت ولكن الخطا موجود



كود :
Try
           filldatg(Me, DATAG_CLIEN, DataSetDG, "employee_tb", " SELECT  employee_id,employee_code,employee_name,employee_hwd,employee_age FROM employee_tb WHERE employee_SHOW =true   ORDER BY employee_id ASC")
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)

           DATAG_CLIEN.Columns(0).Width = 70
           DATAG_CLIEN.Columns(1).Width = 0
           DATAG_CLIEN.Columns(2).Width = 60
           DATAG_CLIEN.Columns(3).Width = 200
           DATAG_CLIEN.Columns(4).Width = 100


           DATAG_CLIEN.Columns(0).HeaderText = "داتا"
           DATAG_CLIEN.Columns(1).HeaderText = "الرقم"
           DATAG_CLIEN.Columns(2).HeaderText = "الكود"
           DATAG_CLIEN.Columns(3).HeaderText = "اسم الموظف"
           DATAG_CLIEN.Columns(4).HeaderText = "رقم الهوية"

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try


RE: مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - smalw - 20-12-19

(20-12-19, 11:03 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة


طيب انا عايز كل صف يظهر فية باول خلية بوتن او زرار استخدمت الكود التالي ولكن تحدث مشكلة اول مرة افتح الفورم بيشتغل تمام تاني مرة الاعمدة بتزيد  وكل مرة افتح الفورم الاعمدة تزيد وتتلخبط  لما حذفت كود ادال البوتن كل شيء تمام

انا حاولت اني احذف كل الاعمدة كل مرة ولكن ظهر خطأ حاولت اني احذ العمود الانسيرت ولكن الخطا موجود



كود :
Try
           filldatg(Me, DATAG_CLIEN, DataSetDG, "employee_tb", " SELECT TOP 15 employee_id,employee_code,employee_name,employee_hwd,employee_age FROM employee_tb WHERE employee_SHOW =true   ORDER BY employee_id ASC")
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)

           DATAG_CLIEN.Columns(0).Width = 70
           DATAG_CLIEN.Columns(1).Width = 0
           DATAG_CLIEN.Columns(2).Width = 60
           DATAG_CLIEN.Columns(3).Width = 200
           DATAG_CLIEN.Columns(4).Width = 100


           DATAG_CLIEN.Columns(0).HeaderText = "داتا"
           DATAG_CLIEN.Columns(1).HeaderText = "الرقم"
           DATAG_CLIEN.Columns(2).HeaderText = "الكود"
           DATAG_CLIEN.Columns(3).HeaderText = "اسم الموظف"
           DATAG_CLIEN.Columns(4).HeaderText = "رقم الهوية"

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كود :
if DATAG_CLIEN.Columns(0).celltype<>gettype(DataGridViewButtonCell) then
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)
end if


RE: مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - محمد اسماعيل - 21-12-19

(20-12-19, 11:46 PM)smalw كتب :
(20-12-19, 11:03 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة


طيب انا عايز كل صف يظهر فية باول خلية بوتن او زرار استخدمت الكود التالي ولكن تحدث مشكلة اول مرة افتح الفورم بيشتغل تمام تاني مرة الاعمدة بتزيد  وكل مرة افتح الفورم الاعمدة تزيد وتتلخبط  لما حذفت كود ادال البوتن كل شيء تمام

انا حاولت اني احذف كل الاعمدة كل مرة ولكن ظهر خطأ حاولت اني احذ العمود الانسيرت ولكن الخطا موجود



كود :
Try
           filldatg(Me, DATAG_CLIEN, DataSetDG, "employee_tb", " SELECT TOP 15 employee_id,employee_code,employee_name,employee_hwd,employee_age FROM employee_tb WHERE employee_SHOW =true   ORDER BY employee_id ASC")
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)

           DATAG_CLIEN.Columns(0).Width = 70
           DATAG_CLIEN.Columns(1).Width = 0
           DATAG_CLIEN.Columns(2).Width = 60
           DATAG_CLIEN.Columns(3).Width = 200
           DATAG_CLIEN.Columns(4).Width = 100


           DATAG_CLIEN.Columns(0).HeaderText = "داتا"
           DATAG_CLIEN.Columns(1).HeaderText = "الرقم"
           DATAG_CLIEN.Columns(2).HeaderText = "الكود"
           DATAG_CLIEN.Columns(3).HeaderText = "اسم الموظف"
           DATAG_CLIEN.Columns(4).HeaderText = "رقم الهوية"

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كود :
if DATAG_CLIEN.Columns(0).celltype<>gettype(DataGridViewButtonCell) then
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)
end if

اشكرك علي سرعة الرد والمتابعة

عموما ظهر خطا معايا

[attachment=23719]

RE: مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - smalw - 21-12-19

(21-12-19, 12:06 AM)محمد اسماعيل كتب :
(20-12-19, 11:46 PM)smalw كتب :
(20-12-19, 11:03 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة


طيب انا عايز كل صف يظهر فية باول خلية بوتن او زرار استخدمت الكود التالي ولكن تحدث مشكلة اول مرة افتح الفورم بيشتغل تمام تاني مرة الاعمدة بتزيد  وكل مرة افتح الفورم الاعمدة تزيد وتتلخبط  لما حذفت كود ادال البوتن كل شيء تمام

انا حاولت اني احذف كل الاعمدة كل مرة ولكن ظهر خطأ حاولت اني احذ العمود الانسيرت ولكن الخطا موجود



كود :
Try
           filldatg(Me, DATAG_CLIEN, DataSetDG, "employee_tb", " SELECT TOP 15 employee_id,employee_code,employee_name,employee_hwd,employee_age FROM employee_tb WHERE employee_SHOW =true   ORDER BY employee_id ASC")
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)

           DATAG_CLIEN.Columns(0).Width = 70
           DATAG_CLIEN.Columns(1).Width = 0
           DATAG_CLIEN.Columns(2).Width = 60
           DATAG_CLIEN.Columns(3).Width = 200
           DATAG_CLIEN.Columns(4).Width = 100


           DATAG_CLIEN.Columns(0).HeaderText = "داتا"
           DATAG_CLIEN.Columns(1).HeaderText = "الرقم"
           DATAG_CLIEN.Columns(2).HeaderText = "الكود"
           DATAG_CLIEN.Columns(3).HeaderText = "اسم الموظف"
           DATAG_CLIEN.Columns(4).HeaderText = "رقم الهوية"

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كود :
if DATAG_CLIEN.Columns(0).celltype<>gettype(DataGridViewButtonCell) then
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)
end if

اشكرك علي سرعة الرد والمتابعة

عموما ظهر خطا معايا


استبدل <> ب isnot

RE: مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - محمد اسماعيل - 21-12-19

(21-12-19, 12:22 AM)smalw كتب :
(21-12-19, 12:06 AM)محمد اسماعيل كتب :
(20-12-19, 11:46 PM)smalw كتب :
(20-12-19, 11:03 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة


طيب انا عايز كل صف يظهر فية باول خلية بوتن او زرار استخدمت الكود التالي ولكن تحدث مشكلة اول مرة افتح الفورم بيشتغل تمام تاني مرة الاعمدة بتزيد  وكل مرة افتح الفورم الاعمدة تزيد وتتلخبط  لما حذفت كود ادال البوتن كل شيء تمام

انا حاولت اني احذف كل الاعمدة كل مرة ولكن ظهر خطأ حاولت اني احذ العمود الانسيرت ولكن الخطا موجود



كود :
Try
           filldatg(Me, DATAG_CLIEN, DataSetDG, "employee_tb", " SELECT TOP 15 employee_id,employee_code,employee_name,employee_hwd,employee_age FROM employee_tb WHERE employee_SHOW =true   ORDER BY employee_id ASC")
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)

           DATAG_CLIEN.Columns(0).Width = 70
           DATAG_CLIEN.Columns(1).Width = 0
           DATAG_CLIEN.Columns(2).Width = 60
           DATAG_CLIEN.Columns(3).Width = 200
           DATAG_CLIEN.Columns(4).Width = 100


           DATAG_CLIEN.Columns(0).HeaderText = "داتا"
           DATAG_CLIEN.Columns(1).HeaderText = "الرقم"
           DATAG_CLIEN.Columns(2).HeaderText = "الكود"
           DATAG_CLIEN.Columns(3).HeaderText = "اسم الموظف"
           DATAG_CLIEN.Columns(4).HeaderText = "رقم الهوية"

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كود :
if DATAG_CLIEN.Columns(0).celltype<>gettype(DataGridViewButtonCell) then
           Dim btn As New DataGridViewButtonColumn
           btn.HeaderText = "Click Data"
           btn.Text = "Click Here"
           btn.Name = "btn"
           btn.UseColumnTextForButtonValue = True
           DATAG_CLIEN.Columns.Insert(0, btn)
end if

اشكرك علي سرعة الرد والمتابعة

عموما ظهر خطا معايا


استبدل <> ب isnot

تمام

اسأل الله ان يرزقك خيرا عن كل من ينتفع بعلمك .

RE: مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو - alessam4pro - 30-06-22

إضافة البوتون تكون في الحدث RowsAdded الخاص بالداتا جريد فيو خاصتك
ويكون الكود كالتالي
For i As Integer = 0 To dgw.Rows.Count - 1
dgw.Rows(i).Cells(1).Value = "باركود"
dgw.Rows(i).Cells(1).Style.Font = New System.Drawing.Font("Qatar Medium", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
dgw.Rows(i).Cells(1).Style.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(61, Byte), Integer), CType(CType(0, Byte), Integer))
Dim ROW As DataGridViewRow = dgw.Rows(i)
Next