甜老师 谢谢您的细心指教 我还想问你下
Dim dr As DataRow = e.DataRow
If dr.IsNull("产品") Then
msgbox("产品列不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "Bom"
e.SubFolder = dr("产品") & "\BOM"
Case "图纸"
e.SubFolder = dr("产品") & "\图纸"
Case "效果图"
e.SubFolder = dr("产品") & "\效果图"
End Select
End If
这段代码 我想在 产品列 前面再加个一个 风格列 多了一个级别条件 该如何修改呢，试了几次不成功，还是要请教您了
Dim dr As DataRow = e.DataRow
If dr.IsNull("类别") Or dr.IsNull("部门") Then
msgbox("类别or部门不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "一级文件_制度"
e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_制度"
Case "一级文件_流程"
e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_流程"
Case "一级文件_表格"
e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_表格"
Case "一级文件_签发原件"
e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_签发原件"
End Select
End If
搞定了 如有更高的效率代码还是请指教
[此贴子已经被作者于2014-4-25 1:02:14编辑过]
加好友 
发短信
Post By：2014/4/23 17:27:00 [显示全部帖子]
此主题相关图片如下：qq截图20140423184333.png
