以文本方式查看主题

-  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=169815)
--  作者：有点蓝
--  发布时间：2021/7/1 14:03:00
--  
调试看看

                    If e.DataRow(e.DataCol.name).Contains(e.FileName) Then
                        Dim max As Integer = 0
                        For Each s As String In e.DataRow.Lines(e.DataCol.name)
msgbox(s)
                            If s Like "*" & e.DataRow("岗位名称") & e.DataRow("职员姓名") &  "*" Then
                                Dim fni1 As Integer=s.LastIndexOf("(")
msgbox(fni1)
                                If fni1 > -1 Then
                                    Dim fni2 As Integer = s.LastIndexOf(")")
msgbox(fni2)
                                    fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
msgbox(fni1 )
                                    If fni1 > max Then
                                        max = fni1
                                    End If
                                End If
                            End If
                        Next
                        e.filename = e.DataRow("岗位名称") & e.DataRow("职员姓名") &  "(" & (max+1) & ")" & hz
                    End If