منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(20-10-15, 06:47 PM)سعود كتب : [ -> ]اضف زر امر واكتب بحدث النقر له الكود التالي:

PHP كود :

 For a = 0 To DataGridView1.Rows.Count - (IIf(DataGridView1.AllowUserToAddRows, 2, 1))
            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 


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

---

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


ياسلام .. الحيلة ان جت فجاة ونجحت حلوة
في نفس حدث 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