12-04-16, 02:40 AM
كان عندي خطأ في كتابة هذا الكود :
Dim Item As String = ""
Dim c As Integer = dgv_Tst_Seek.SelectedRows(0).Cells.Count - 1
If c <= 0 Then
c = 0
End If
For x = 0 To c
Dim cell As DataGridViewCell = dgv_Tst_Seek.CurrentRow.Cells(x)
If x = dgv_Tst_Seek.SelectedRows(0).Cells.Count - 1 Then
Item = Item & cell.Value
Else
Item = Item & cell.Value & " - "
End If
Next
lst_Tst_Added.Items.Add(Item)
Dim Item As String = ""
Dim c As Integer = dgv_Tst_Seek.SelectedRows(0).Cells.Count - 1
If c <= 0 Then
c = 0
End If
For x = 0 To c
Dim cell As DataGridViewCell = dgv_Tst_Seek.CurrentRow.Cells(x)
If x = dgv_Tst_Seek.SelectedRows(0).Cells.Count - 1 Then
Item = Item & cell.Value
Else
Item = Item & cell.Value & " - "
End If
Next
lst_Tst_Added.Items.Add(Item)
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
