我在数据库中有 3 个表，如下所示。我想制作一份报告，就像下面显示的链接一样。如何使用 datagrid 或 datalist 做到这一点？哪个是最好的chois？我已经尝试了一个星期。
公司：ID_COMPANY，COMPANY_NAME
产品：ID_PRODUCT、PRODUCT_NAME
PRODUCT_SALE：ID_COMPANY、ID_PRODUCT、SALE_COUNT
更新：
在你的帮助下，我可以做到。但是现在我也有一个小问题。
当我使用枢轴编写查询时，产品名称成为列标题。如果产品名称的长度大于 30 个字符，Oracle 不接受它作为列标题。所以我已经裁剪并制作了 30 个字符的产品名称来解决这个问题。之后也出现了问题。
当我将产品名称裁剪为 30 个字符时，某些产品会变成相同的名称，并且出现“ORA-00918：列不明确定义”错误消息。
在这种情况下可以做什么？
您正在运行什么版本的 SQL？使用 PIVOT 可能是将数据转换为所需形式的快速方法，然后您可以使用通用 DataGrid 以（几乎）“原始”形式显示数据 - 即数据的呈现方式SQL 服务器。然后，您可以认为 DataGrid 更像是一个电子表格，而不是代表数据库中的数据表。
这是一个很好的入门文档，介绍了如何使用 PIVOT 以您所追求的形式表示数据：
http://www.tsqltutorials.com/pivot.php
当然，我认为这可能只在 SQL 2005 中可用......所以如果您运行的是旧版本，这可能没有帮助。
更新 ：
在 Oracle 10g 上，您将需要 MODEL 扩展，这与 SQL 中的 PIVOT 没有什么不同，但显然 Oracle 10g 以自己的方式做事：检查此链接
如果产品编号是静态的，以下将起作用：
<asp:gridview>
<columns>
<asp:boundfield datafield="companyname" itemstyle-headertext="" />
<asp:boundfield datafield="SALE_COUNT" itemstyle-headertext='<%# FunctionToLoadurproduct(product1) %>' />
<asp:boundfield datafield="SALE_COUNT" itemstyle-headertext='<%# FunctionToLoadurproduct(product1) %>' />
and so on...
</columns>
</gridview >
使用内联查询根据查询中的产品 ID 管理产品销售。
对我来说，这看起来像是一份交叉表报告。您有 2 个选项可以解决此问题
在 Oracle 10g 上，您将需要 MODEL 扩展，这与 SQL 中的 PIVOT 没有什么不同，但显然 Oracle 10g 以自己的方式做事：
http://technology.amis.nl/blog/300/pivoting-in-sql-using-the-10g-model-clause
使用标准 sql 查询（数据透视在性能方面很昂贵）并在服务器端代码中创建自定义数据透视函数。这里有几个例子。
''' <summary>
''' Pivots columnX as new columns for the X axis (must be unique values) and the remaining columns as
''' the Y axis. Optionally can include columns to exclude from the Y axis.
''' </summary>
''' <param name="dt"></param>
''' <param name="columnX"></param>
''' <param name="columnsToIgnore"></param>
''' <returns>DataTable</returns>
''' <remarks></remarks>
Public Shared Function Pivot(ByVal dt As DataTable, ByVal columnX As String, ByVal ParamArray columnsToIgnore As String()) As DataTable
Dim dt2 As New DataTable()
If columnX = "" Then
columnX = dt.Columns(0).ColumnName
End If
'Add a Column at the beginning of the table
dt2.Columns.Add(columnX)
'Read all DISTINCT values from columnX Column in the provided DataTable
Dim columnXValues As New List(Of String)()
'Create the list of columns to ignore
Dim listColumnsToIgnore As New List(Of String)()
If columnsToIgnore.Length > 0 Then
listColumnsToIgnore.AddRange(columnsToIgnore)
End If
If Not listColumnsToIgnore.Contains(columnX) Then
listColumnsToIgnore.Add(columnX)
End If
' Add the X axis columns
For Each dr As DataRow In dt.Rows
Dim columnXTemp As String = dr(columnX).ToString()
If Not columnXValues.Contains(columnXTemp) Then
columnXValues.Add(columnXTemp)
dt2.Columns.Add(columnXTemp)
Else
Throw New Exception("The inversion used must have unique values for column " + columnX)
End If
Next
'Add a row for each non-columnX of the DataTable
For Each dc As DataColumn In dt.Columns
If Not columnXValues.Contains(dc.ColumnName) AndAlso Not listColumnsToIgnore.Contains(dc.ColumnName) Then
Dim dr As DataRow = dt2.NewRow()
dr(0) = dc.ColumnName
dt2.Rows.Add(dr)
End If
Next
'Complete the datatable with the values
For i As Integer = 0 To dt2.Rows.Count - 1
For j As Integer = 1 To dt2.Columns.Count - 1
dt2.Rows(i)(j) = dt.Rows(j - 1)(dt2.Rows(i)(0).ToString()).ToString()
Next
Next
Return dt2
End Function
''' <summary>
''' Can pivot any column as X, any column as Y, and any column as Z. Sort on X, sort on Y and optionally, the
''' values at the intersection of x and y (Z axis) can be summed.
''' </summary>
''' <param name="dt"></param>
''' <param name="columnX"></param>
''' <param name="columnY"></param>
''' <param name="columnZ"></param>
''' <param name="nullValue"></param>
''' <param name="sumValues"></param>
''' <param name="xSort"></param>
''' <param name="ySort"></param>
''' <returns>DataTable</returns>
''' <remarks></remarks>
Public Shared Function Pivot(ByVal dt As DataTable, ByVal columnX As String, ByVal columnY As String, ByVal columnZ As String, _
ByVal nullValue As String, ByVal sumValues As Boolean, ByVal xSort As Sort, ByVal ySort As Sort) As DataTable
Dim dt2 As New DataTable()
Dim tickList As List(Of Long) = Nothing
If columnX = "" Then
columnX = dt.Columns(0).ColumnName
End If
'Add a Column at the beginning of the table
dt2.Columns.Add(columnY)
'Read all DISTINCT values from columnX Column in the provided DataTable
Dim columnXValues As New List(Of String)()
Dim cols As Integer = 0
For Each dr As DataRow In dt.Rows
If dr(columnX).ToString.Contains("'") Then
dr(columnX) = dr(columnX).ToString.Replace("'", "")
End If
If Not columnXValues.Contains(dr(columnX).ToString) Then
'Read each row value, if it's different from others provided,
'add to the list of values and creates a new Column with its value.
columnXValues.Add(dr(columnX).ToString)
End If
Next
'Sort X if needed
If Not xSort = Sort.None Then
columnXValues = SortValues(columnXValues, xSort)
End If
'Add columnX
For Each s As String In columnXValues
dt2.Columns.Add(s)
Next
'Verify Y and Z Axis columns were provided
If columnY <> "" AndAlso columnZ <> "" Then
'Read DISTINCT Values for Y Axis Column
Dim columnYValues As New List(Of String)()
For Each dr As DataRow In dt.Rows
If dr(columnY).ToString.Contains("'") Then
dr(columnY) = dr(columnY).ToString.Replace("'", "")
End If
If Not columnYValues.Contains(dr(columnY).ToString()) Then
columnYValues.Add(dr(columnY).ToString())
End If
Next
' Now we can sort the Y axis if needed.
If Not ySort = Sort.None Then
columnYValues = SortValues(columnYValues, ySort)
End If
'Loop all Distinct ColumnY Values
For Each columnYValue As String In columnYValues
'Create a new Row
Dim drReturn As DataRow = dt2.NewRow()
drReturn(0) = columnYValue
Dim rows As DataRow() = dt.[Select](columnY + "='" + columnYValue + "'")
'Read each row to fill the DataTable
For Each dr As DataRow In rows
Dim rowColumnTitle As String = dr(columnX).ToString()
'Read each column to fill the DataTable
For Each dc As DataColumn In dt2.Columns
If dc.ColumnName = rowColumnTitle Then
'If sumValues, try to perform a Sum
'If sum is not possible due to value types, use the nullValue string
If sumValues Then
If IsNumeric(dr(columnZ).ToString) Then
drReturn(rowColumnTitle) = Val(drReturn(rowColumnTitle).ToString) + Val(dr(columnZ).ToString)
Else
drReturn(rowColumnTitle) = nullValue
End If
Else
drReturn(rowColumnTitle) = dr(columnZ).ToString
End If
End If
Next
Next
dt2.Rows.Add(drReturn)
Next
Else
Throw New Exception("The columns to perform inversion are not provided")
End If
'if nullValue param was provided, fill the datable with it
If nullValue <> "" Then
For Each dr As DataRow In dt2.Rows
For Each dc As DataColumn In dt2.Columns
If dr(dc.ColumnName).ToString() = "" Then
dr(dc.ColumnName) = nullValue
End If
Next
Next
End If
Return dt2
End Function
''' <summary>
''' Sorts a list of strings checking to see if they are numeric or date types.
''' </summary>
''' <param name="list"></param>
''' <param name="srt"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function SortValues(ByVal list As List(Of String), ByVal srt As Sort) As List(Of String)
Dim tickList As List(Of Long) = Nothing
Dim dblList As List(Of Double) = Nothing
' Figure out how to sort columnX
For Each s As String In list
Dim colDate As Date = Nothing
If Date.TryParse(s, colDate) Then
tickList = New List(Of Long)
Exit For
End If
Next
Dim dateTicks As Long
If Not tickList Is Nothing Then
For Each s As String In list
dateTicks = DateTime.Parse(s).Ticks
If Not tickList.Contains(dateTicks) Then
tickList.Add(dateTicks)
End If
Next
If srt = Sort.DESC Then
tickList.Sort()
tickList.Reverse()
ElseIf srt = Sort.ASC Then
tickList.Sort()
End If
list.Clear()
For Each lng As Long In tickList
list.Add(New Date(lng).ToString("G"))
Next
Else
Dim dbl As Double = Nothing
For Each s As String In list
If IsNumeric(s) Then
dblList = New List(Of Double)
End If
Next
If Not dblList Is Nothing Then
'Doubles or Integers
For Each s As String In list
dbl = Val(s)
If Not dblList.Contains(dbl) Then
dblList.Add(dbl)
End If
Next
If srt = Sort.DESC Then
dblList.Sort()
dblList.Reverse()
ElseIf srt = Sort.ASC Then
dblList.Sort()
End If
list.Clear()
For Each d As Double In dblList
list.Add(d.ToString)
Next
Else
'Strings
If srt = Sort.DESC Then
list.Sort()
list.Reverse()
ElseIf srt = Sort.ASC Then
list.Sort()
End If
End If
End If
Return list
End Function
使用嵌套的中继器控件。外部中继器将重复公司，内部将重复产品。