16,550
社区成员
发帖
与我相关
我的任务
分享
form1中
1.txt的内容:
11 22 33
22 33 44
Public Class Form1
Public Shared f As Form1 = Nothing
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim f2 As Form2 = New Form2()
f2.Show()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
f = Me
Dim list As New DataTable()
list.Columns.Add(New DataColumn("aa", System.Type.GetType("System.String")))
list.Columns.Add(New DataColumn("bb", System.Type.GetType("System.String")))
list.Columns.Add(New DataColumn("cc", System.Type.GetType("System.String")))
Dim reader As New StreamReader("1.txt", Encoding.Default)
While (Not reader.EndOfStream)
Dim data As String() = reader.ReadLine.Split(" ")
Dim dr As DataRow = list.NewRow
dr(0) = data(0)
dr(1) = data(1)
dr(2) = data(2)
list.Rows.Add(dr)
End While
DataGridView1.DataSource = list
End Sub
End Class
form2中:
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = Form1.f.DataGridView1.DataSource
End Sub