主题：[求助]一个表中有两列照片列，一个是登记表列，一个是备案表列，如何修改下列代码？

假定表中有六列，分别是县区、单位名称、生成日期、姓名、登记表（照片列）、备案表（照片列），希望向登记表列添加文件的时候，自动根据县区和单位名称创建子目录来存放文件，如果点击登记表列，就将取名为"单位名称_姓名_生成日期.jpg"的文件存放到Attachments的子目录下的：登记表\县区\单位名称中；如果点击备案表列，就将取名为"单位名称_生成日期.jpg"的文件存放到Attachments的子目录下的：备案表\县区\单位名称中。如何修改，谢谢，下边的代码只能存放备案表列的。

Dim dr As DataRow = e.DataRow

If dr.IsNull("县区") Or Dr.IsNull("单位名称") Or dr.IsNull("生成日期") Or dr.IsNull("姓名") Then

    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    e.Cancel = True

Else

    e.SubFolder = "备案表" & "\" & dr("县区") & "\" & dr("单位名称")

    e.FileName = dr("单位名称") & "_" & dr("生成日期") &  ".jpg"

End If

 如下

Dim dr As DataRow = e.DataRow

If dr.IsNull("县区") Or Dr.IsNull("单位名称") Or dr.IsNull("生成日期") Or dr.IsNull("姓名") Then
    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = e.DataCol.name & "\" & dr("县区") & "\" & dr("单位名称")
    e.FileName = dr("单位名称") & "_" & dr("生成日期") &  ".jpg"
End If

Dim dr As DataRow = e.DataRow

If dr.IsNull("县区") Or 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 = e.DataCol.name & "\" & dr("县区") & "\" & dr("单位名称")
        e.FileName = dr("单位名称") & "_" & dr("生成日期") &  ".jpg"
    Else If e.DataCol.Name = "登记表" Then
        e.SubFolder = e.DataCol.name & "\" & dr("县区") & "\" & dr("单位名称")
        e.FileName = e.FileName = dr("单位名称") & "_" & dr("姓名") & "_" & dr("生成日期") &  ".jpg"
    End If
End If