在VS.NET里创建名字为HierarchicalDataGrid的VB.NET ASPX应用程序,输入上面的代码,就可以看到下面的结果:
ASP.NET 2.0版本代码
C#
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Test_Default" %>
using System;
using System.Data;
using System.Data.SqlClient;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
public partial class _Test_Default : System.Web.UI.Page
{
protected void Page_Load( object sender, EventArgs e )
{
SqlConnection OrdersConnection = new SqlConnection(@"User ID=sa;Password=;Initial Catalog=NorthWind;Server=(local)");
SqlDataAdapter OrderAdapter = new SqlDataAdapter("Select * from Orders; select OrderID ,Products.ProductName,
[order Details].Unitprice,[order Details].Quantity,[order Details].discount from [order Details],Products
where [Order Details].ProductId=Products.ProductID", OrdersConnection);
DataSet OrderDataSet = new DataSet();
OrderAdapter.Fill(OrderDataSet);
OrderDataSet.Tables[0].TableName = "Orders";
OrderDataSet.Tables[1].TableName = "Order Details";
DataColumn Parent = OrderDataSet.Tables["Orders"].Columns["OrderID"];
DataColumn Child = OrderDataSet.Tables["Order Details"].Columns["OrderID"];
DataRelation OrderRelation = new DataRelation("OrderRelation", Parent, Child, false);
OrderDataSet.Relations.Add(OrderRelation);
DataGrid1.DataSource = OrderDataSet.Tables["Orders"].DefaultView;
DataBind();
}
protected void DataGrid1_ItemDataBound( object sender, DataGridItemEventArgs e )
{
e.Item.Cells[0].BackColor = System.Drawing.Color.Ivory;
}
}
VB.NET
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default3.aspx.vb" Inherits="Default3" %>
Partial Class Default3
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim OrdersConnection As System.Data.SqlClient.SqlConnection =
New System.Data.SqlClient.SqlConnection("User ID=sa;Password=;Initial Catalog=NorthWind;Server=(local)")
Dim OrderAdapter As System.Data.SqlClient.SqlDataAdapter = New
System.Data.SqlClient.SqlDataAdapter("Select * from Orders; select OrderID ,Products.ProductName,
[order Details].Unitprice,[order Details].Quantity,[order Details].discount from [order Details],
Products where [Order Details].ProductId=Products.ProductID", OrdersConnection)
Dim OrderDataSet As System.Data.DataSet = New System.Data.DataSet()
OrderAdapter.Fill(OrderDataSet)
OrderDataSet.Tables(0).TableName = "Orders"
OrderDataSet.Tables(1).TableName = "Order Details"
Dim Parent As System.Data.DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As System.Data.DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID")
Dim OrderRelation As System.Data.DataRelation = New System.Data.DataRelation("OrderRelation", Parent, Child, False)
OrderDataSet.Relations.Add(OrderRelation)
DataGrid1.DataSource = OrderDataSet.Tables("Orders").DefaultView
DataBind()
End Sub
Protected Sub DataGrid1_ItemDataBound(ByVal sender As Object,
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
e.Item.Cells(0).BackColor = System.Drawing.Color.Ivory
End Sub
End Class
来源: 孟宪会之精彩世界