.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ADO.NET对象的构造(4)_DataColumn(续)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

n          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




相关文章

相关软件