主题：求助：有条件填充

各位老师：

    有下图的数据表：

此主题相关图片如下：微信图片_20220728144452.jpg

我想要的效果是：当第四列等1时，第五列=第二列& “转”，这一步已经做到了。

             当前行第三列的值等上一行的值+1时，第五列=第二列& ”转“，否则，第五列=第二列

  这个逻辑我始终没有搞清楚改怎样写代码，我写的代码如下：

Dim n2 As Integer = Tables("表A").Rows.Count
Dim dt1 As Table = Tables("表A")
With Tables("表A")
    .Position = 0
End With
Dim i2 As Integer 
For i2 = 1 To n2   
Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = Tables("表A").Rows(r1.Index-1)
   If r1("第二列") = r2("第二列")
      r1("第五列") = r2("第五列")
   Else 'If r1("第二列") = r2("第二列") And r1("第四列") <> 1
      r1("第五列") = r1("第五列")
   End If
      With Tables("表A")
         If  .Position = .Rows.Count - 1   '如果是未行
         Else
            .Position = .Position + 1     '下移一行
         End If
      End With
Next

 

请各位老师费心！谢谢！

 

实例如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

或者老师重新给整合一下代码！

 

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

谢谢！