DataTable排序.然后进行GroupBY

本文介绍如何使用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

 Next

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值