Dim dr As DataRow = e.DataRow
If dr.IsNull("版本") Or Dr.IsNull("册") Or Dr.IsNull("章") Then
MessageBox.Show("版本?册?章不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
If e.DataCol.name = "课件" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("课件") & "\" & dr("章")
ElseIf e.DataCol.name = "教案" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("教案") & "\" & dr("章")
ElseIf e.DataCol.name = "学案" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("学案") & "\" & dr("章")
ElseIf e.DataCol.name = "反思" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("反思") & "\" & dr("章")
ElseIf e.DataCol.name = "视频" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("视频") & "\" & dr("章")
ElseIf e.DataCol.name = "试卷" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("试卷") & "\" & dr("章")
ElseIf e.DataCol.name = "其他" Then
e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr("其他") & "\" & dr("章")
End If
End If
老师,未达到效果-- 版本\册\课件\章 或版本\册\教案\章 或版本\册\试卷\章 等
全部都在 ---版本\册\章 ,也就是不论添加的是课件还是教案等均放到了版本\册\章 最后的文件夹中,并未分类存放
[此贴子已经被作者于2018/5/11 17:57:14编辑过]