Dim ss As String = e.filename
Dim Index As Integer = ss.LastIndexOf(".")
Dim hz As String = ss.SubString(Index,ss.length-Index)
e.filename = e.DataRow("岗位名称") & e.DataRow("职员姓名") & hz
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)
If s Like "*" & e.DataRow("岗位名称") & e.DataRow("职员姓名") & "*" Then
Dim fni1 As Integer=s.LastIndexOf("(")
If fni1 > -1 Then
Dim fni2 As Integer = s.LastIndexOf(")")
fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
If fni1 > max Then
max = fni1
End If
End If
End If
Next
e.filename = e.DataRow("岗位名称") & e.DataRow("职员姓名") & "(" & (max+1) & ")" & hz
End If
End If
此主题相关图片如下：企业微信截图_20210701134958.png
继续添加就不会重名了 需求是 文件（1） 文件（2） 文件（3）
现在是原文正常 第二个是（1）第三个就会报重不会自动命名序号了
[此贴子已经被作者于2021/7/1 13:51:39编辑过]
加好友 
发短信
Post By：2021/7/1 13:49:00 [只看该作者]
