以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]统计分组并赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92806)
--  作者：wu725
--  发布时间：2016/11/13 21:22:00
--  [求助]统计分组并赋值
请老师指点一下，求代码，谢谢。我正在设计一程序，需要实现自动分组，表A中组别列中名称相同的组别大于等于16，小余等于30，在分组列中，引用组别列名称，并在后面隔行加“1组”，“2组”，如果大于等于31，小于等于45，在分组列中，引用组别列名称，并在后面隔行加“1组”，“2组”，“3组”，以此类推。
简单讲就是根据组别列列名称计算，相同的达到小于16个不分组，大于16个分2组，3组，4组等，每组最高不超过15个。样式如下图。
组    别 分组
少年单人精英组 少年单人精英组1组
少年单人精英组 少年单人精英组2组
少年单人精英组 少年单人精英组1组
少年单人精英组 少年单人精英组2组
少年单人精英组 少年单人精英组1组
少年单人精英组 少年单人精英组2组
少年单人精英组 少年单人精英组1组
少年单人精英组 少年单人精英组2组
--  作者：有点色
--  发布时间：2016/11/14 9:29:00
--  

不明白你说的什么大于16、30，根据什么比较？

 

大致代码参考

 

Dim dt As DataTable = DataTables("表A")
For Each key As String In dt.GetValues("第一列")
    Dim drs As List(of DataRow) = dt.Select("第一列 = \'" & key & "\'")
    For i As Integer = 0 To drs.count-1
        drs(i)("第二列") = drs(i)("第一列") & i+1
    Next
Next
--  作者：有点蓝
--  发布时间：2016/11/14 9:51:00
--  
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85565