vb.net 中如何遍历数组根据数组项在表中选出记录并存到dataset？

显示全部楼层 · 2021-1-27 06:48:25

vb.net中如何遍历数组根据数组项在表中选出记录并存到dataset？
分 -->

千问 · 2021-1-27 06:48:25

从数组中构造DataRow，在加入到DataSet的DataTable中。

千问 · 2021-1-27 06:48:25

PrivateSubCreateNewDataRow()
'UsetheMakeTablefunctionbelowtocreateanewtable.
DimtableAsDataTable
table=MakeNamesTable()
'Onceatablehasbeencreated,usethe
'NewRowtocreateaDataRow.
DimrowAsDataRow
row=table.NewRow()
'Thenaddthenewrowtothecollection.
row("fName")="John"
row("lName")="Smith"
table.Rows.Add(row)
DimcolumnAsDataColumn
ForEachcolumnintable.Columns
Console.WriteLine(column.ColumnName)
Next
DataGrid1.DataSource=table
EndSub
PrivateFunctionMakeNamesTable()AsDataTable
'CreateanewDataTabletitled'Names.'
DimnamesTableAsDataTable=newDataTable("Names")
'Addthreecolumnobjectstothetable.
DimidColumnAsDataColumn=newDataColumn()
idColumn.DataType=System.Type.GetType("System.Int32")
idColumn.ColumnName="id"
idColumn.AutoIncrement=True
namesTable.Columns.Add(idColumn)
DimfNameColumnAsDataColumn=NewDataColumn()
fNameColumn.DataType=System.Type.GetType("System.String")
fNameColumn.ColumnName="Fname"
fNameColumn.DefaultValue="Fname"
namesTable.Columns.Add(fNameColumn)
DimlNameColumnAsDataColumn=newDataColumn()
lNameColumn.DataType=System.Type.GetType("System.String")
lNameColumn.ColumnName="LName"
namesTable.Columns.Add(lNameColumn)
'CreateanarrayforDataColumnobjects.
Dimkeys(0)AsDataColumn
keys(0)=idColumn
namesTable.PrimaryKey=keys
'ReturnthenewDataTable.
MakeNamesTable=namesTable
EndFunction

来自
http://msdn.microsoft.com/en-us/library/system.data.datarow.aspx#Y3416