怎么实现时间和凭证号相同条件下的数据uuid全部赋值为一样凭证编号按时间和凭证号相同的前提下从01依次开始编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现时间和凭证号相同条件下的数据uuid全部赋值为一样凭证编号按时间和凭证号相同的前提下从01依次开始编号

共有3635人关注过本帖树形打印复制链接主题：怎么实现时间和凭证号相同条件下的数据uuid全部赋值为一样凭证编号按时间和凭证号相同的前提下从01依次开始编号

cnsjroom

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

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

怎么实现时间和凭证号相同条件下的数据uuid全部赋值为一样凭证编号按时间和凭证号相同的前提下从01依次开始编号 发帖心情

Post By：2021/12/6 17:55:00 [显示全部帖子]

怎么实现凭证号和时间符合条件的行将uuid全部赋值为一样凭证编号从01开始编号谢谢老师

当前代码

Dim Products As List(Of String)

Products = DataTables("凭证明细").GetValues("时间")

Dim Products1 As List(Of String)

For Each Product As String In Products

Products1 = DataTables("凭证明细").GetValues("凭证号","时间='"& Product &"'")

For Each Product1 As String In Products1

Dim a1 As DataRow=DataTables("凭证明细").Find("时间='" & Product & "'and 凭证号='" & Product1 & "'")

Dim a2 As DataRow=DataTables("凭证号").Find("时间='" & Product & "'and 凭证号='" & Product1 & "'")

If a1 IsNot Nothing Then

a1("uuid")=a2("uuid")

End If

当前代码运行如下：

cnsjroom

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

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）For Each Product As String() In&nb... 发帖心情

Post By：2021/12/7 0:16:00 [显示全部帖子]

谢谢老师耐心指导

cnsjroom

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

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（nxhylczh）dim Ft as string ="时间>=#201... 发帖心情

Post By：2021/12/7 0:16:00 [显示全部帖子]

谢谢分享思路

主题：怎么实现时间和凭证号相同条件下的数据uuid全部赋值为一样 凭证编号按时间和凭证号相同的前提下 从01依次开始编号