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

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

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



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


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