Question

我在数据库中有3个表，如下所示。我想制作一份报告，就像下面显示的链接一样。我怎样才能使用datagrid或datalist？哪一个是最好的选择？我已经尝试了一个星期。

公司：ID_COMPANY，COMPANY_NAME

PRODUCT ：ID_PRODUCT，PRODUCT_NAME

PRODUCT_SALE ：ID_COMPANY，ID_PRODUCT，SALE_COUNT

已更新：

我可以帮助你做到这一点。但是现在我也有一个小问题。

当我使用pivot编写查询时，产品名称将成为列标题。如果产品名称的长度大于30个字符，则Oracle不接受它作为列标题。所以我已经破坏并使产品名称30个字符来解决这个问题。之后也出现了问题。

当我将产品名称裁剪为30个字符时，某些产品会变成相同的名称，并且会出现“ORA-00918：列模糊定义”错误消息。

在这种情况下可以做些什么？

Answer 1

您运行的是哪个版本的SQL？使用PIVOT可能是将数据转换为所需形式的快速方法，然后您可以使用通用DataGrid以其（几乎）“原始”形式显示数据 - 即数据的呈现方式SQL服务器。然后，您可以将DataGrid看作电子表格，而不是数据库中数据表的代表。

这是一个很好的入门文档，介绍如何使用PIVOT来表示您所使用的表单中的数据：

http://www.tsqltutorials.com/pivot.php

当然，我认为这可能只在SQL 2005中提供...所以如果你运行的是旧版本，这可能没什么用。

已更新：

在Oracle 10g上你将需要MODEL扩展，它不是 world 与SQL中的PIVOT不同，但显然Oracle 10g以自己的方式做事：Check this link

Answer 2

如果产品编号是静态的，以下内容将起作用：

<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管理产品销售。

Answer 3

看起来像是一个交叉表报告给我。你有两个选择

透视数据库中的数据并将其绑定到数据网格。执行此操作的确切语法将根据您使用的数据库引擎而有所不同。 Here's an example in SQL
使用可以基于简单连接进行交叉制表的报表工具，例如SQL Reporting Services，Crystal Reports，XtraReports等。

Answer 4

在Oracle 10g上，您将需要MODEL扩展，它不是SQL中的PIVOT world ，但显然Oracle 10g以自己的方式做事：

http://technology.amis.nl/blog/300/pivoting-in-sql-using-the-10g-model-clause

Answer 5

使用标准的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

Answer 6

使用嵌套的Repeater Control。外部中继器将重复公司，内部将重复产品。

填充Datagrid和Sql查询

6 个答案: