主题：自动根据版本，册，章来创建子目录来存放文件

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
    e.SubFolder = dr("版本") & "\" & dr("册") & "\" & dr(e.datacol.name) & "\" & dr("章 ")
End If

或者

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("章")       
    End If
End If

改成

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
    e.SubFolder = dr("版本") & "\" & dr("册") & "\" & e.datacol.name & "\" & dr("章 ")
End If