本文整理汇总了VB.NET中System.Data.DataColumn.DataColumn构造函数的典型用法代码示例。如果您正苦于以下问题：VB.NET DataColumn构造函数的具体用法？VB.NET DataColumn怎么用？VB.NET DataColumn使用的例子？那么, 这里精选的构造函数代码示例或许可以为您提供帮助。您也可以进一步了解该构造函数所在类System.Data.DataColumn的用法示例。
在下文中一共展示了DataColumn构造函数的5个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: AddDataColumn
Private Sub AddDataColumn(ByVal table As DataTable)
Dim column As New DataColumn()
' Set various properties.
With column
.ColumnName = "id"
.DataType = System.Type.GetType("System.Int32")
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
.ReadOnly = True
End With
' Add to Columns collection.
table.Columns.Add(column)
End Sub示例2: AddDataColumn
Private Sub AddDataColumn(ByVal table As DataTable)
Dim column As DataColumn
column = New DataColumn("id")
' Set various properties.
With column
.DataType = System.Type.GetType("System.Int32")
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
.ReadOnly = True
End With
' Add to Columns collection.
table.Columns.Add(column)
End Sub示例3: AddDataColumn
Private Sub AddDataColumn(ByVal table As DataTable)
Dim typeInt32 As System.Type = _
System.Type.GetType("System.Int32")
Dim column As DataColumn = _
New DataColumn("id", typeInt32)
' Set various properties.
With column
.AutoIncrement = True
.AutoIncrementSeed = 1
.AutoIncrementStep = 1
.ReadOnly = True
End With
' Add to Columns collection.
table.Columns.Add(column)
End Sub示例4: AddDataColumn
Private Sub AddDataColumn(ByVal table As DataTable)
Dim column As DataColumn
Dim decimalType As System.Type
decimalType = System.Type.GetType("System.Decimal")
column = New DataColumn("Tax", decimalType, "UnitPrice * .0862")
' Set various properties.
With column
.AutoIncrement = False
.ReadOnly = True
End With
' Add to Columns collection.
table.Columns.Add(column)
End Sub示例5: CreateComputedColumn
Private Sub CreateComputedColumn(ByVal table As DataTable)
Dim column As DataColumn
Dim decimalType As System.Type = _
System.Type.GetType("System.Decimal")
' The expression multiplies the "Price" column value by the
' "Quantity" to create the "Total" column.
Dim expression As String = "Price * Quantity"
' Create the column, setting the type to Attribute.
column = New DataColumn("Total", decimalType, _
expression, MappingType.Attribute)
' Set various properties.
column.AutoIncrement = False
column.ReadOnly = True
' Add the column to a DataTable object's DataColumnCollection.
DataSet1.Tables("OrderDetails").Columns.Add(column)
End Sub