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

لقد قمت بعمل مشروع يعرض اسماء الاعمدة لقاعدة بيانات فى DataGridView و عند الضغط على الخلية فى صف معين
يحفظ اسم العمود فى متغير و يعرضة فى textbox كما بالصورة
   
المطلوب هو عند الغاء التحديد يحذف اسم العمود و ال (,) من المتغير
   
و هذا هو المشروع 
.rar   test.rar (الحجم : 112.39 ك ب / التحميلات : 16)
الرد }}}}
تم الشكر بواسطة: سعود
#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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 44 منذ 8 ساعة مضت
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 33 أمس, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 134 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 1 41 20-01-17, 11:00 PM
آخر رد: مساعدة
  [VB.NET] ربط سطر من datagridview بفورم اخر يعرض معلومات مخزنة subhialjzazy 5 108 19-01-17, 09:49 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 37 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة لنشر موقعي safa 1 45 18-01-17, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 118 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [VB.NET] مشكلة بسيطة جداً timer 3asfa~mdmra 4 97 15-01-17, 10:09 PM
آخر رد: 3asfa~mdmra
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 178 15-01-17, 02:11 PM
آخر رد: abudawoodd

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


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