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") & "\" & "产品宣传"
Case "宣传_企业"
SystemReady = False
e.SubFolder =dr("品牌") & "\" & format(dr("日期").Today,"yyyy") & "\" & "企业宣传"
End Select
End If
'------------------------------------------------------
Dim s As String = e.filename
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
e.filename=e.DataRow("品牌") & "企业宣传" & hz
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(".")
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.9.23.1
错误所在事件:品牌主表,BeforeAttachFile
详细错误信息:
StartIndex 不能小于 0。
参数名: startIndex
希望自动重命名 文件(1),JPG 文件(2).jpg 文件(....).jpg 不想手动修改
此主题相关图片如下:qq截图20140925164031.png
)
[此贴子已经被作者于2014-9-25 16:45:40编辑过]