[求助]连续编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]连续编号

共有2951人关注过本帖树形打印复制链接主题：[求助]连续编号

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/10/30 12:03:00 [显示全部帖子]

黄色部分是比较2个单元格的数据，和是不是字符没有任何关系，字符一样用。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/10/30 13:20:00 [显示全部帖子]

dim idx as ibteger = 1

Dim drs As List(Of DataRow) = DataTables("审批单").Select("[审批编号] = '" & bj & "'","审批编号 DESC")

For n As Integer = 0 To drs.Count - 1

If n > 0 AndAlso drs(n)("审批编号") = drs(n-1)("审批编号") Then

drs(n)("序号") = drs(n-1)("序号")

Else

drs(n)("序号") = idx

idx = idx + 1

End If

主题：[求助]连续编号