以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何根据部门排序号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131904)
--  作者：zhuzhi
--  发布时间：2019/3/8 18:14:00
--  如何根据部门排序号
请教老师们，我有一张工作表如下
部门  姓名  序号
三     1
三     2
三     3
三     4
三     5
五     6
五     7
五     8

现在想根据 部门，让系统一键自动编排序号，即三部从1编号，五部也从1编号

请问该怎么做呢？

十分感谢
--  作者：有点蓝
--  发布时间：2019/3/8 20:26:00
--  
Dim t As Table = Tables("表A")
t.Sort = "部门"
Dim r As Row = t.Rows(0)
r("姓名") = 1
Dim idx As Integer = 2
For i As Integer = 1 To t.Rows.Count  - 1
    Dim r2 As Row = t.Rows(i)
    If r2("部门") = r("部门") Then
        r2("姓名") = idx
        idx += 1
    Else
        r2("姓名") = 1
        r = r2
        idx = 2
    End If
Next