在 VB asp.net 2.0 中对数据表的行进行分组答案

【问题标题】：Grouping rows of a datatable in VB asp.net 2.0在 VB asp.net 2.0 中对数据表的行进行分组
【发布时间】：2010-09-26 15:40:01
【问题描述】：

顾名思义，我正在尝试对数据表中的行进行分组。更详细地说，该表具有相同的行，除了一个字段（列）。基本上我要做的是将相同行的所有不同字段放入单个字段中，同时删除其他行。

这是我目前使用的语法

   Dim i As Integer
    Dim j As Integer
    For i = 0 To (ds.Tables(0).Rows.Count() - 1) Step 1
        If (i < ds.Tables(0).Rows.Count()) Then
            roleHtml = "<table><tr><td>" + ds.Tables(0).Rows(i).Item("roleName") + "</td></tr>"
            For j = (ds.Tables(0).Rows.Count() - 1) To 0 Step -1
                If (ds.Tables(0).Rows(i).Item("UserName") = ds.Tables(0).Rows(j).Item("UserName")) And (ds.Tables(0).Rows(i).Item("roleName") IsNot ds.Tables(0).Rows(j).Item("roleName")) Then
                    roleHtml += "<tr><td>" + ds.Tables(0).Rows(j).Item("roleName") + "</td></tr>"
                    ds.Tables(0).Rows.Remove(ds.Tables(0).Rows(j))
                    i -= 1
                End If
            Next j
            roleHtml += "</table>"
            ds.Tables(0).Rows(i).Item("roleName") = roleHtml
        End If
    Next i

问题是当删除行时，它们的索引会发生变化，基本上该字段会被扔到与它无关的另一行中。

【问题讨论】：

标签： .net vb.net datatable

【解决方案1】：

好吧，我可以帮助处理循环结构。这与您正在做的事情不完全匹配（它使表格完好无损，只是构建了一个大字符串，并且还假设表格以特定方式排序），但它将使用您的实际数据演示经典的控制中断处理。为此，表格需要先按用户排序，然后按角色排序。

Dim i As Integer = 0
Dim CurUser As String = ""
Dim CurRole As String = ""
Dim result As new StringBuilder()
Dim r as DataRowCollection = ds.Tables(0).Rows

While i < r.Count
    'Next User:'
    CurUser = r(i)("UserName")
    result.AppendFormat("<h2>{0}</h2>", CurUser).AppendLine()
    result.AppendLine("<table>")

    While i < r.Count AndAlso CurUser = r(i)("UserName")
        'Next Role:'
        CurRole = r(i)("roleName")
        result.AppendFormat("<tr><td>{0}</td></tr>", CurRole).AppendLine()

        While i < r.Count AndAlso CurUser = r(i)("UserName") AndAlso CurRole = r(i)("roleName")
            i += 1 'Next Record: same user, role '
        End While
        'Finished this role'
    End While
    'Finished this user:'
     result.AppendLine("</table>").AppendLine()
End While

这有 3 个嵌套循环，而不仅仅是你的两个。但是，它仍然获得线性性能：它只会对每条记录迭代一次。它之所以有效，是因为所有循环共享相同的计数器，该计数器仅在内循环中递增，并且它们都具有相同的基本结束条件。

【讨论】：

干杯伙伴稍后会检查它

【解决方案2】：

我最近不得不用control-break 风格的报告做类似的事情。

我结束了将数据绑定到转发器控件，其中项目模板只是一个文字控件。然后我处理了 OnItemDataBound 事件，并使用与您的代码有点相似的代码来检查，只要“控制”（在控制中断意义上而不是 Web 控制意义上）列匹配，只需将剩余列的值添加到一个类-level 变量并将 e.Item.Visible 设置为 false。当它们不再匹配时，我将 e.Item.Visible 保留为 true（默认）并将文字控件的 Text 属性设置为我正在处理的行所需的 html。

我确信有更好的方法可以做到这一点，但使用 asp.net 查找控制中断报告的信息并不容易：control 在此域中搜索时具有双重含义，很难找到克服。

【讨论】：

请注意，我真的不喜欢我编写代码的方式，即，因为它是一个嵌套循环，因此会消耗很多性能。我想也许有一个更简单的解决方案

【解决方案3】：

这很难阅读，这通常意味着它已经准备好进行一些重组了。

您能否详细说明您想要实现的目标？您想在 DataTable 中留下什么？

数据是排序的还是可以在数据库中排序的？如果它已排序，那么您只需要一个循环即可。

我会做以下事情：

对数据表进行排序
为您的结果创建一个新的数据表
按顺序单步执行，保留最后一个用户名和当前角色列表的变量。如果用户名与最后一个不同，则使用最后一个用户名和当前角色列表向您的数据表添加一个新行。如果用户名相同，则附加到角色列表。到最后不要忘记添加最后一行。

这解决了从您正在单步执行的集合中删除行的问题。

【讨论】：

将上传我想要实现的图表，但目前正在工作，无法浏览图片托管网站。

【解决方案4】：

显然我的代码有效。 i -=1 行是额外的。很抱歉给您带来不便，感谢您的帮助

【讨论】：

如果数据是排序的，检查我的代码。它利用排序来获得线性性能，而不是 n 平方或 n log(n)。

【解决方案5】：

循环部分看起来像是被覆盖了。

但是如果你没有意识到诀窍是从下往上（或从最后一个元素到首先，或者你想表达它）。

这就是问题删除部分的全部答案。

当您从最后一个到第一个工作时，删除编号列表中的项目只会影响您已经处理的项目的索引 - 那谁在乎，对吧？

-T.

【讨论】：