vb.net 创建数据表？

Posted 2023-02-22

【中文标题】vb.net 创建数据表？

【英文标题】：vb.net creating data table?

【发布时间】：2011-07-11 12:01:40

【问题描述】：

我正在使用 vb.net/winforms。 如何将 10 行三列转换为 DataSet/DataTable？

线条是这样的：

Item-1, $100, 44

Item-2, $42, 3

etc

【参考方案1】：

Dim Table1 As DataTable
Table1 = New DataTable("TableName")

Dim column1 As DataColumn = New DataColumn("Column1")
column1.DataType = System.Type.GetType("System.String")

Dim column2 As DataColumn = New DataColumn("Column2")
column2.DataType = System.Type.GetType("System.Int32") 
Dim column3 As DataColumn = New DataColumn("Column2")
column3.DataType = System.Type.GetType("System.Int32")

Table1.Columns.Add(column1)
Table1.Columns.Add(column2)
Table1.Columns.Add(column3)


Dim Row1 As DataRow
Row1 = Table1.NewRow()

Row1.Items("Column1") = "Item1"
Row1.Items("Column2") = 44
Row1.Items("Column3") = 99

Table1.Rows.Add(Row1)

' Repeat for other rows

【讨论】：

谢谢。需要更新 column3 定义：Dim column3 As DataColumn = New DataColumn("Column3")

出于某种原因，我不得不使用Row1.Item("Column1") = "Item1" 而不是Items()，但我能够让它工作。

【参考方案2】：

我知道这篇文章很旧，但我相信这可以用更少的代码行来解决。

' Declare DataTable
Dim Table1 As new DataTable()
' Define columns
Table1.Columns.Add("Column1", GetType(System.String))
Table1.Columns.Add("Column2", GetType(System.Int32))
Table1.Columns.Add("Column3", GetType(System.Int32))
' Add a row of data
Table1.Rows.Add("Item1", 44, 99)
Table1.Rows.Add("Item2", 42, 3)

来源DotNetPerls.com : VB.NET DataTable