新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > .Net开发 > Asp.net教程 > 正文:ADO.NET对象的构造(4)_DataColumn(续)

ADO.NET对象的构造(4)_DataColumn(续)

新客网 XKER.COM 2004-05-17 来源: 收藏本文
Overloads Public Overridable Function Add() As DataColumn

n Overloads Public Sub Add(ByVal column As DataColumn)

n Overloads Public Overridable Function Add(ByVal columnName As String) As DataColumn

n Overloads Public Overridable Function Add(ByVal columnName As String, ByVal type As Type) As DataColumn

n Overloads Public Overridable Function Add(ByVal columnName As String, ByVal type As Type,ByVal expression As String) As DataColumn



参数

1. columnName 列的名称。

2. column 要添加的 DataColumn。

3. type 新列的 DataType。

4. expression 要分配给 Expression 属性的表达式。



DataColumnCollection 定义 DataTable 的架构,并确定每个 DataColumn 可以包含什么种类的数据。可以通过 DataTable对象的 Columns 属性访问 DataColumnCollection。

DataColumnCollection 使用 Add 和 Remove 方法插入和删除 DataColumn 对象。使用 Count 属性确定集合中有多少 DataColumn 对象。使用 Contains 方法验证集合中是否存在指定索引或列名称。



示例

Private Sub AddColumn()

Dim cols As DataColumnCollection= DataSet1.Tables("Orders").Columns

Dim myCol As DataColumn



myCol = cols.Add()

With myCol

.DataType = System.Type.GetType("System.Decimal")

.ColumnName = "Total"

.Expression = "UnitPrice * Quantity"

.ReadOnly = True

.Unique = False

End With



myCol = New DataColumn

With myCol

.DataType = System.Type.GetType("System.Decimal")

.ColumnName = "Total"

.Expression = "UnitPrice * Quantity"

.ReadOnly = True

.Unique = False

End With

cols.Add(myCol)



myCol = cols.Add("Total", System.Type.GetType("System.Decimal"), "UnitPrice * Quantity")

myCol.ReadOnly = True

myCol.Unique = False



myCol = cols.Add("Total")

With myCol

.DataType = System.Type.GetType("System.Decimal")

.ReadOnly = True

.Expression = "UnitPrice * Quantity"

.Unique = False

End With



myCol = cols.Add("Total", System.Type.GetType("System.Decimal"))

myCol.Expression = "UnitPrice * Quantity"

myCol.ReadOnly = True

myCol.Unique = False



Dim col As DataColumn

For Each col in cols

Console.WriteLine(col.ColumnName)

Console.WriteLine(col.DataType.ToString)

Next

End Sub

收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐