DataTable排序.然后进行GroupBY

最新推荐文章于 2022-04-08 17:05:59 发布

xiexiaopingroma

最新推荐文章于 2022-04-08 17:05:59 发布

阅读量1.3k

点赞数

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

本文链接：https://blog.csdn.net/xiexiaopingroma/article/details/5334159

版权

.net 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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