[salamandal]

تخلص من الليست فيو 
واضف داتاقريدفيو ثم ضع الكود التالي في الفورم 1

كود :

Public Class Form1
   Dim db As String
   Dim dt As New DataTable
   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

       OpenFileDialog2.FileName = Nothing
       OpenFileDialog2.Title = "Open a Text File"
       OpenFileDialog2.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
       If OpenFileDialog2.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           TextBox2.Text = Me.OpenFileDialog2.FileName
           db = IO.Path.GetDirectoryName(TextBox2.Text) & "\texte.txt"
           gd()
       Else

       End If

   End Sub

 
   Public Function loadtxt() As DataTable
       dt.Clear()
       If dt.Columns.Count = 0 Then
           dt.Columns.Add("tname")
           dt.Columns.Add("tphone")
           dt.Columns.Add("Date")
           dt.Columns.Add("Time")

       End If
       Dim lines() As String = IO.File.ReadAllLines(db)
       For Each line As String In lines
           If line.Contains("+CMGL:") = True Then
               Dim row() As String = {Split(line, ",")(1), Split(line, ",")(2), Split(line, ",")(4), Split(line, ",")(5)}
               dt.Rows.Add(row)
           Else
               Dim row() As String = {line}
               dt.Rows.Add(row)
           End If
       Next
       Return dt
   End Function
   Private Sub gd(Optional pos As Integer = 0)
       If loadtxt.Rows.Count > 0 Then
           DataGridView1.DataSource = loadtxt()
           If DataGridView1.Rows.Count > 0 Then
               DataGridView1.Rows(pos).Selected = True
               DataGridView1.Columns(0).Width = 120
           End If
       End If
   End Sub
End Class