تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد مساعدة بسيطة فى DataGridView
#1
السلام عليكم

لقد قمت بعمل مشروع يعرض اسماء الاعمدة لقاعدة بيانات فى DataGridView و عند الضغط على الخلية فى صف معين
يحفظ اسم العمود فى متغير و يعرضة فى textbox كما بالصورة
   
المطلوب هو عند الغاء التحديد يحذف اسم العمود و ال (,) من المتغير
   
و هذا هو المشروع 
.rar   test.rar (الحجم : 112.39 ك ب / التحميلات : 31)
الرد }}}}
تم الشكر بواسطة: سعود
#2
اضف زر امر واكتب بحدث النقر له الكود التالي:
PHP كود :
 For a 0 To DataGridView1.Rows.Count - (IIf(DataGridView1.AllowUserToAddRows21))
 
           If DataGridView1.Rows(a).Cells(2).Value True Then

                If TextBox1
.Text.Trim.ToLower.Contains(DataGridView1.Rows(a).Cells(0).Value.ToString.ToLower ",") = False Then
                    TextBox1
.AppendText(DataGridView1.Rows(a).Cells(0).Value.ToString ",")
 
               End If

 
           Else
                TextBox1
.Text TextBox1.Text.Replace(DataGridView1.Rows(a).Cells(0).Value.ToString ","String.Empty)
 
           End If
 
       Next 

اذا لم ترد هذه اخبرني افكر بطريقتك


======================================
///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
======================================


ياسلام .. الحيلة ان جت فجاة ونجحت حلوةSmile
في نفس حدث DataGridView1_CellClick
استبدل ماعندك بالتالي:
PHP كود :
       If e.ColumnIndex 2 Then
            If DataGridView1
.Rows(e.RowIndex).Cells(2).Value True Then
                DataGridView1
.Rows(e.RowIndex).Cells(2).Value False
            Else
                DataGridView1
.Rows(e.RowIndex).Cells(2).Value True
            End 
If


 
           If DataGridView1.Rows(e.RowIndex).Cells(2).Value True Then
                If TextBox1
.Text.Trim.ToLower.Contains(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString.ToLower ",") = False Then
                    TextBox1
.AppendText(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString ",")
 
               End If
 
           Else
                TextBox1
.Text TextBox1.Text.Replace(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString ","String.Empty)
 
           End If
 
       End If 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: mohamed haroon
#3
(20-10-15, 06:47 PM)سعود كتب : اضف زر امر واكتب بحدث النقر له الكود التالي:
PHP كود :
 For a 0 To DataGridView1.Rows.Count - (IIf(DataGridView1.AllowUserToAddRows21))
 
           If DataGridView1.Rows(a).Cells(2).Value True Then

                If TextBox1
.Text.Trim.ToLower.Contains(DataGridView1.Rows(a).Cells(0).Value.ToString.ToLower ",") = False Then
                    TextBox1
.AppendText(DataGridView1.Rows(a).Cells(0).Value.ToString ",")
 
               End If

 
           Else
                TextBox1
.Text TextBox1.Text.Replace(DataGridView1.Rows(a).Cells(0).Value.ToString ","String.Empty)
 
           End If
 
       Next 

اذا لم ترد هذه اخبرني افكر بطريقتك


======================================
///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
======================================


ياسلام .. الحيلة ان جت فجاة ونجحت حلوةSmile
في نفس حدث DataGridView1_CellClick
استبدل ماعندك بالتالي:
PHP كود :
       If e.ColumnIndex 2 Then
            If DataGridView1
.Rows(e.RowIndex).Cells(2).Value True Then
                DataGridView1
.Rows(e.RowIndex).Cells(2).Value False
            Else
                DataGridView1
.Rows(e.RowIndex).Cells(2).Value True
            End 
If


 
           If DataGridView1.Rows(e.RowIndex).Cells(2).Value True Then
                If TextBox1
.Text.Trim.ToLower.Contains(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString.ToLower ",") = False Then
                    TextBox1
.AppendText(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString ",")
 
               End If
 
           Else
                TextBox1
.Text TextBox1.Text.Replace(DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString ","String.Empty)
 
           End If
 
       End If 

شكرا اخ سعود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 5 93 منذ 7 ساعة مضت
آخر رد: e-coder
  مساعدة هامة جدا ashfgsm 9 114 أمس, 02:44 PM
آخر رد: Amir_alzubidy
  تصديراعمده DataGridView الى الاكسيل الدريساوي 8 1,564 أمس, 02:20 AM
آخر رد: hoshosgost@yahoo.com
  datagridview محمود صالح 2 50 14-10-17, 01:51 AM
آخر رد: محمود صالح
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 35 13-10-17, 06:39 PM
آخر رد: e-coder
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 375 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  [VB.NET] اريد التعديل علي المديول التالي محمد اسماعيل 2 64 08-10-17, 07:37 PM
آخر رد: محمد اسماعيل
  عن اداة datagridview sweem 1 60 07-10-17, 09:05 PM
آخر رد: أحمد النجار
  [VB.NET] مساعدة بخصوص mysql MOSTAFA.KAMEL 0 42 06-10-17, 07:30 AM
آخر رد: MOSTAFA.KAMEL
Information [سؤال] محتاج كود لOpenFileDialog و DataGridView lemozza 3 87 02-10-17, 07:20 PM
آخر رد: سعود

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


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