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

'Dim fn As String = e.DataRow.Lines(e.DataCol.name)(e.DataRow.Lines(e.DataCol.name).Count-1)

Dim fni As Integer=fn.LastIndexOf("(")

Dim fn2 As String =fn.SubString(fni,fn.Length-fni)

Dim fni2 As Integer= fn2.LastIndexOf(".")

e.FIlterName= "效果图(" & Val(fn2.SubString(0,fni2).trim("(").trim(")"))+1 & ".jpg"