<%@ Import Namespace="System.Data" %>
<%
Dim dtblCart As DataTable
Dim dcolColumn As DataColumn
Dim drowItem As DataRow
' Creating DataTable
dtblCart = New DataTable( "Cart" )
' Creating 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 )
' Adding 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 )
' Displaying DataTable
For each drowItem in dtblCart.Rows
For each dcolColumn in dtblCart.Columns
Response.Write( drowItem( dcolColumn ) )
Next
Next
%>
s |