| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多文件列命名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143427) |
| -- 作者：mojo -- 发布时间：2019/11/24 20:25:00 -- 多文件列命名 中标通知书、合同、项目部发文、公司交底、组织设计、开工报告、竣工报告，这几列是文件列，已经达到自动命名效果。 但是： 图纸收发、三级验收、量化考核、质量回访、其他措施、三级以上风险、施工进度计划、过程检查，这几列是多文件，如何在第二个文件录入时自动加上 -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
|
| -- 作者：有点蓝 -- 发布时间：2019/11/24 21:14:00 -- 比如： Case "图纸收发" e.FileName = dr("项目名称")& "图纸收发-" & dr.lines("图纸收发").count + 1 & ".pdf" |