中标通知书、合同、项目部发文、公司交底、组织设计、开工报告、竣工报告，这几列是文件列，已经达到自动命名效果。
但是：
图纸收发、三级验收、量化考核、质量回访、其他措施、三级以上风险、施工进度计划、过程检查，这几列是多文件，如何在第二个文件录入时自动加上 -01，第三个文件自动加上-02
以下是代码，帮忙改改。
万分感谢！！
Dim dr As DataRow = e.DataRow
If dr.IsNull("项目名称") Then
MessageBox.Show("请先输入项目名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Select Case e.DataCol.Name
Case "中标通知书"
e.FileName = dr("项目名称") & "中标通知书" & ".pdf"
Case "项目发文"
e.FileName = dr("项目名称") & "项目发文" & ".pdf"
Case "公司交底"
e.FileName = dr("项目名称") & "公司交底" & ".pdf"
Case "组织设计"
e.FileName = dr("项目名称") & "组织设计" & ".pdf"
Case "开工报告"
e.FileName = dr("项目名称") & "开工报告" & ".pdf"
Case "竣工报告"
e.FileName = dr("项目名称") & "竣工报告" & ".pdf"
Case "合同"
e.FileName = dr("项目名称") & "合同" & ".pdf"
Case "图纸收发"
e.FileName = dr("项目名称")& "图纸收发" & ".pdf"
Case "三级验收"
e.FileName = dr("项目名称")& "三级验收" & ".pdf"
Case "量化考核"
e.FileName = dr("项目名称")& "量化考核" & ".pdf"
Case "质量回访"
e.FileName = dr("项目名称")& "质量回访" & ".pdf"
Case "其他措施"
e.FileName = dr("项目名称")& "其他措施" & ".pdf"
Case "三级及以上风险"
e.FileName = dr("项目名称")& "三级及以上风险" & ".pdf"
Case "施工进度计划"
e.FileName = dr("项目名称")& "施工进度计划" & ".pdf"
Case "过程检查"
e.FileName = dr("项目名称")& "过程检查" & ".pdf"
End Select
End If
加好友 
发短信
Post By：2019/11/24 20:25:00 [只看该作者]
