主题：自动生成工序号

根据工序列，自动生成工序号

工序列编号从01开始，当下一行的工序内容不同于上一行内容时，工序号自动加1。

此主题相关图片如下：1 (2).png

For Each r As Row In Tables("编制工艺文件_Table05").Rows
   Dim max As String
Dim idx As Integer
If max > "" Then           如果max > "" 并且遍历行的工序内容不同于上一行内容时，这句代码怎么写？
    idx = CInt(max) + 1
Else
    idx = 1
End If
r("工序号") = Format(idx, "00")
max = r("工序号")
Next

For i As Integer = 0 To Tables("编制工艺文件_Table05").Rows.count - 1
 If Tables("编制工艺文件_Table05").Rows(i)("工序号") <> Tables("编制工艺文件_Table05").Rows(i - 1)("工序号") Then 改成如果在Tables("编制工艺文件_Table04")表【工序号】列中找不到相同的 Tables("编制工艺文件_Table05").Rows(i)("工序号")，怎么改？
       Dim r1 As Row = Tables("编制工艺文件_Table05").Rows(i)
        Dim r2 As Row = Tables("编制工艺文件_Table04").AddNew()
        r2("工艺单编号") = r1("工艺单编号")
        r2("工序号") = r1("工序号")
    End If
Next