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

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


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

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

(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

(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]

(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

(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

تمام

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

إضافة البوتون تكون في الحدث 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