调试看看
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
加好友 
发短信
Post By：2021/7/1 14:03:00 [显示全部帖子]
