Dim list = Enumerable.Range(0, UBound(x1)).Select(Function(x) New With { .x1 = x1(x), .x2 = x2(x), .x3 = x3(x) }).ToList()
DataGridView1.DataSource = list
Dim list = Enumerable.Range(0, UBound(x1)).Select(Function(x) New With { .x1 = x1(x), .x2 = x2(x), .x3 = x3(x) }).ToList()
DataGridView1.DataSource = list
Dim temp(3) As DataColumn
DatagridView1.Columns.CopyTo(temp, 0)
Dim list As DataTable = New DataTable()
list.Columns.AddRange(temp)
list.Rows.Add("test", "123", "dasd", "zxc")
DatagridView1.DataSource = list
--------------------编程问答--------------------
'新建一个datatable用于保存读入的数据
Dim list As New DataTable()
'给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)
'将每行数据,用-分割成3段
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)
'将这行数据加入到datatable中
list.Rows.Add(dr)
End While
'将datatable绑定到datagridview上显示结果()
DataGridView1.DataSource = list
--------------------编程问答--------------------
'新建一个datatable用于保存读入的数据
Dim list As New DataTable()
'给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)
'将每行数据,用-分割成3段
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)
'将这行数据加入到datatable中
list.Rows.Add(dr)
End While
'将datatable绑定到datagridview上显示结果()
DataGridView1.DataSource = list