createdatatable.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data" %>
<%
Dim dtblCart As DataTable
Dim dcolColumn As DataColumn
Dim drowItem As DataRow

' Create DataTable
dtblCart = New DataTable( "Cart" )

' Create Columns
dcolColumn = New DataColumn( "ProductID", GetType( Int32 ) )
dtblCart.Columns.Add( dcolColumn )
dcolColumn = New DataColumn( "ProductName", GetType( String ) )
dtblCart.Columns.Add( dcolColumn )
dcolColumn = New DataColumn( "ProductCategory", GetType( String ) )
dtblCart.Columns.Add( dcolColumn )
dcolColumn = New DataColumn( "ProductPrice", GetType( Decimal ) )
dtblCart.Columns.Add( dcolColumn )

' Add Rows
drowItem = dtblCart.NewRow()
drowItem( "ProductID" ) = 12
drowItem( "ProductName" ) = "Anchor Steam"
drowItem( "ProductCategory" ) = "Beer"
drowItem( "ProductPrice" ) = 7.90
dtblCart.Rows.Add( drowItem )

drowItem = dtblCart.NewRow()
drowItem( "ProductID" ) = 13
drowItem( "ProductName" ) = "Samuel Adams"
drowItem( "ProductCategory" ) = "Beer"
drowItem( "ProductPrice" ) = 8.67
dtblCart.Rows.Add( drowItem )

' Display DataTable
For each drowItem in dtblCart.Rows
  For each dcolColumn in dtblCart.Columns
    Response.Write( drowItem( dcolColumn ) )
  Next
Next
%>