DataTable排序.然后进行GroupBY

最新推荐文章于 2024-05-13 10:34:49 发布

xiexiaopingroma

最新推荐文章于 2024-05-13 10:34:49 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： .net 文章标签： integer equals

本文链接：https://blog.youkuaiyun.com/xiexiaopingroma/article/details/5334159

.net 专栏收录该内容

3 篇文章

订阅专栏

本文介绍如何使用DataTable进行排序与GroupBY操作，包括添加列、填充数据、设置视图并应用排序规则，以及如何根据排序结果生成新的DataTable。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DataTable排序操作,GroupBY
Dim dt As New DataTable
Dim dtTemp AS DataTable

dt .Columns.Add("コード")

dt .Columns.Add("数量")

dt.Rows.Add(dt.NewRow())
dt.Rows(i).Item("コード") ="1"
dt.Rows(i).Item("数量") = 1

dt.DefaultView.Sort = "コード"
dtTemp = dt.DefaultView.ToTable()

For j As Integer = 0 To dtTemp.Rows.Count - 1
            If j = 0 Then
                dt.Rows.Add(dt.NewRow())
                dt.Rows(j).Item("コード") = dtTemp.Rows(j).Item(0)
                dt.Rows(j).Item("数量") = dtTemp.Rows(j).Item(1)
            ELSE

                 If dtTemp.Rows(j).Item(0). ＿
                    Equals(dtTemp.Rows(j - 1).Item(0)) Then
                         dt.Rows(dt.Rows.Count - 1).Item("数量")= dt.Rows(dt.Rows.Count -1).Item("数量")+

                          dtTemp.Rows(j).Item(数量)
                  else
                          dt.Rows.Add(dt.NewRow())
                          dt.Rows(dt.Rows.Count - 1).Item("コード") = dtTemp.Rows(j).Item
                         dt.Rows(dt.Rows.Count - 1).Item("数量") = dtTemp.Rows(j).Item(1)
                End If

EndIf