منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 379
تم شكره 381 مرات في 232 مشاركات
#1
20-12-19, 11:03 PM (آخر تعديل لهذه المشاركة : 21-12-19, 12:35 AM {2} بواسطة محمد اسماعيل.)
السلام عليكم ورحمة الله وبركاتة


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

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



كود :
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
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5
smalw غير متصل
عضو مبدع
المشاركات : 56
المواضيع 0
الإنتساب : Sep 2019
السمعة : 20
الشكر: 0
تم شكره 175 مرات في 67 مشاركات
#2
20-12-19, 11:46 PM
(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
البحث
الرد }}}
تم الشكر بواسطة: محمد اسماعيل , عبد العزيز البسكري , عبد العزيز البسكري , محمد كريّم , asemshahen5 , ابراهيم ايبو , جيولوجي مبتدئ , جيولوجي مبتدئ
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 379
تم شكره 381 مرات في 232 مشاركات
#3
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

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

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

   
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
smalw غير متصل
عضو مبدع
المشاركات : 56
المواضيع 0
الإنتساب : Sep 2019
السمعة : 20
الشكر: 0
تم شكره 175 مرات في 67 مشاركات
#4
21-12-19, 12:22 AM (آخر تعديل لهذه المشاركة : 21-12-19, 12:23 AM {2} بواسطة 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
البحث
الرد }}}
تم الشكر بواسطة: محمد اسماعيل , عبد العزيز البسكري , محمد كريّم , asemshahen5 , ابراهيم ايبو
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 379
تم شكره 381 مرات في 232 مشاركات
#5
Thumbs Up  21-12-19, 12:34 AM
(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

تمام

اسأل الله ان يرزقك خيرا عن كل من ينتفع بعلمك .
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو , ابراهيم ايبو
alessam4pro غير متصل
عضو جديد
المشاركات : 13
المواضيع 4
الإنتساب : Jan 2019
السمعة : 0
الشكر: 1
تم شكره 3 مرات في 3 مشاركات
#6
30-06-22, 08:29 PM
إضافة البوتون تكون في الحدث 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
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة تقويم ام القرى مع ويندوز 11 assuhimi 1 90 15-12-25, 07:13 PM
آخر رد: assuhimi
  حل مشكلة قائمتين ليستا متساويتين بالحجم justforit 4 250 31-10-25, 02:33 PM
آخر رد: justforit
  مشكلة في عرض الفورم بالحجم المحدد مصمم هاوي 1 244 29-09-25, 03:17 AM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة في عرضForm2.vb MOHAMMED ALZWI 1 367 24-09-25, 06:16 PM
آخر رد: Amir_Alzubidy
  مشكلة دعم skin للغة العربية مصمم هاوي 2 710 16-09-25, 07:57 AM
آخر رد: مصمم هاوي
  مشكلة في عدم الحفظ والتعديل مصمم هاوي 3 875 17-08-25, 10:13 AM
آخر رد: أبو خالد الشكري
  مشكلة في حفظ البيانات مصمم هاوي 2 1,019 30-06-25, 08:51 AM
آخر رد: مصمم هاوي
  مشكلة في جلب الصورة في التقرير مصمم هاوي 12 1,219 06-06-25, 03:00 PM
آخر رد: atefkhalf2004
  [VB.NET] بوتن EMADW 1 232 18-05-25, 08:36 PM
آخر رد: Taha Okla
  [VB.NET] مشكلة تظهر عند استخدام الملف manifest mmaalmesry 2 621 12-05-25, 12:15 AM
آخر رد: mmaalmesry

التنقل السريع :


يقوم بقرائة الموضوع: