Как занести данные из текстового файла в DataGridView? - Visual Basic .NET - Ответ 10495748

Public Class Form3 
 Dim keyascii As Integer 
 Dim _names, _town As String 
 Dim _dd, _mm, _yyyy As Integer 
 Dim _telf As Long 
 
 
 
 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
 If IsNumeric(TextBox1.Text) Then 
 MsgBox("Ввод только букв!") 
 End If 
 'InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture( _' 
 'New Globalization.CultureInfo("ru-RU"))' 
 
 If InputLanguage.CurrentInputLanguage.LayoutName = "Русская" Then 
 
 Else 
 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture( _ 
 New Globalization.CultureInfo("ru-RU")) 
 'MsgBox("Ошибка! Ввод только русскими буквами!") 
 TextBox1.Text = "" 
 End If 
 
 If Chr(keyascii) = "en-US" Then 
 keyascii = Asc("ru-RU") 
 
 End If 
 
 'MsgBox(InputLanguage.CurrentInputLanguage.LayoutName) 
 End Sub 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 Beep() 
 Dim message As String 
 Dim buttonsandicons As Integer 
 Dim title As String 
 Dim response As String 
 message = "Хотите выйти?" 
 title = "Выход" 
 buttonsandicons = vbYesNo + vbQuestion 
 response = MsgBox(message, buttonsandicons, title) 
 If response = vbYes Then 
 End 
 End If 
 End Sub 
 
 
 
 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 Private class Biography() 
 
 Private Sub New(ByVal pp() As String) 
 _names = pp(0) 
 _dd = CInt(pp(1)) 
 _mm = CInt(pp(2)) 
 _yyyy = CInt(pp(3)) 
 _town = pp(4) 
 _telf = CLng(pp(5)) 
 End Sub 
 Public Property names() As String 
 Get 
 Return _names 
 End Get 
 Set(ByVal value As String) 
 _names = value 
 End Set 
 End Property 
 Public Property dd() As Integer 
 Get 
 Return _dd 
 End Get 
 Set(ByVal value As Integer) 
 _dd = value 
 End Set 
 End Property 
 Public Property mm() As Integer 
 Get 
 Return _mm 
 End Get 
 Set(ByVal value As Integer) 
 _mm = value 
 End Set 
 End Property 
 Public Property yyyy() As Integer 
 Get 
 Return _yyyy 
 End Get 
 Set(ByVal value As Integer) 
 _yyyy = value 
 End Set 
 End Property 
 Public Property town() As String 
 Get 
 Return _town 
 End Get 
 Set(ByVal value As String) 
 _town = value 
 End Set 
 End Property 
 Public Property telf() As Long 
 Get 
 Return _telf 
 End Get 
 Set(ByVal value As Long) 
 _telf = value 
 End Set 
 End Property 
 
 
 
 
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
 TextBox1.Text = "" 
 MaskedTextBox1.Text = "" 
 ComboBox1.Text = "" 
 End Sub 
 
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
 Dim fName As String = IO.Path.Combine(Application.StartupPath, "tst.txt") 
 Dim records() As String = IO.File.ReadAllLines(fName, System.Text.Encoding.Default) 
 Dim bb As New List(Of Biography) 
 For Each rr As String In records 
 bb.Add(New Biography(rr.Split(","c))) 
 Next 
 'требуемое условие (написал для примера) 
 'Dim sel = From b As Biography In bb Where b.yyyy > 1998 Select b.FIO, b.town, b.telf, b.yyyy 
 'Dim sel = From b As Biography In bb Where b.yyyy > 1998 And b.yyyy < 2010 Select b.FIO, b.town, b.telf, b.yyyy 
 Dim sel = From b As Biography In bb Where b.town = "Москва2" 
 DataGridView1.DataSource = Nothing 
 If sel.Count > 0 Then 
 DataGridView1.DataSource = sel.ToArray 
 Else 
 MsgBox("Нет данных!") 
 End If 
 End Sub 
End Class