منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 381
تم شكره 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
الشكر: 381
تم شكره 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
الشكر: 381
تم شكره 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
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في ربط الفيجوال بيسك 2013 مع الاكسل صالح عبدالله 7 94 أمس, 09:13 AM
آخر رد: صالح عبدالله
  مشكلة فى Radiobutton عند وضع صورة فيه أبو جودة 3 89 15-04-24, 04:31 AM
آخر رد: Taha Okla
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 0 53 13-04-24, 12:59 PM
آخر رد: new_programer
  [سؤال] لدي مشكلة عند قراءة ملف نصي من خلال أداة RichBox , حيث تظهر لي علامات استفهام Mostchar 2 153 07-04-24, 02:51 PM
آخر رد: تركي الحلواني
  مشكلة في التايمر assuhimi 3 126 23-03-24, 04:51 PM
آخر رد: Taha Okla
  [سؤال] مشكلة اتصال مفتوح dell 2 172 12-03-24, 09:46 PM
آخر رد: dell
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 157 12-03-24, 10:37 AM
آخر رد: strongriseman
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 168 06-03-24, 07:49 PM
آخر رد: احمد خطاب
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 308 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة فى رفع الفاتورة asdfar1977 5 176 25-02-24, 02:04 PM
آخر رد: asdfar1977

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم