我遇到过类似问题。
Sub Page_Load(sender as object,e as eventargs)
Dim OrdersConnection As New SqlConnection("Server=RSServer;" & "database=northwind;" & "User id=outspaceman;password=kakai@2000")
'得到订单和订单详细信息
Dim OrderAdapter As New SqlDataAdapter("Select Top 50 * 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对象
Dim OrderDataSet As New DataSet OrderAdapter.Fill(OrderDataSet) '设定表名字
OrderDataSet.Tables(0).TableName = "Orders"
OrderDataSet.Tables(1).TableName = "Order Details" '在基于OrderID字段的两个表之间建立父子关系
Dim Parent As DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID") Dim OrderRelation As DataRelation = New DataRelation("OrderRelation", Parent, Child, False) '为DataSet添加关系
OrderDataSet.Relations.Add(OrderRelation) '把DataGrid绑定到Orders表
DataGrid1.DataSource = OrderDataSet.Tables("Orders").DefaultView
DataBind()
End Sub
Sub DataGrid1_ItemDataBound( sender As Object, e As System.Web.UI.WebControls.DataGridItemEventArgs)
e.Item.Cells(0).BackColor = System.Drawing.Color.Ivory
End Sub
Sub Page_Load(sender as object,e as eventargs)
Dim OrdersConnection As New SqlConnection("Server=RSServer;" & "database=northwind;" & "User id=outspaceman;password=kakai@2000")
'得到订单和订单详细信息
Dim OrderAdapter As New SqlDataAdapter("Select Top 50 * 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对象
Dim OrderDataSet As New DataSet OrderAdapter.Fill(OrderDataSet) '设定表名字
OrderDataSet.Tables(0).TableName = "Orders"
OrderDataSet.Tables(1).TableName = "Order Details" '在基于OrderID字段的两个表之间建立父子关系
Dim Parent As DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID") Dim OrderRelation As DataRelation = New DataRelation("OrderRelation", Parent, Child, False) '为DataSet添加关系
OrderDataSet.Relations.Add(OrderRelation) '把DataGrid绑定到Orders表
DataGrid1.DataSource = OrderDataSet.Tables("Orders").DefaultView
DataBind()
End Sub
Sub DataGrid1_ItemDataBound( sender As Object, e As System.Web.UI.WebControls.DataGridItemEventArgs)
e.Item.Cells(0).BackColor = System.Drawing.Color.Ivory
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货