主题：文件名动态命名并自动重文件名

Dim dr As DataRow = e.DataRow
If dr.IsNull("第二列") Then
    msgbox("第二列不能为空")
    e.cancel = True
Else
   
    Select Case e.DataCol.Name
        Case "第一列"
            e.SubFolder = dr("第二列") & "\" & format(dr("日期").Today,"yyyy") & "\" & "核心宣传"
    End Select
End If

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("第二列") & "核心宣传" & 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("第二列") & "核心宣传" & "*" 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("第二列") & "核心宣传" & "(" & (max+1) & ")" & hz
End If