Dim dr As DataRow = e.DataRow
If dr.IsNull("项目") OrElse dr.IsNull("子项目") Then
msgbox("项目,子项目列不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "工作成果"
e.SubFolder = dr("文件归档")& "\" & dr("项目") & "\" & dr("一级任务") & "\" & dr("子项目") & e.FileName.SubString(e.FileName.LastIndexof(".")) & User.Name & format(dr("日期").Today,"yyyy-MM") & "更新定稿版"
End Select
End If
e.FileName ="123.xlsx" 这个只是简单的指定重命名吧 我需要的是 这句话插在上面代码的那个位置 文件没有固定的类型 重命名为 子项目 的内容
继续求解 |
[此贴子已经被作者于2014-6-7 10:11:25编辑过]