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

 如下

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

如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:备案表查询系统_201406180900.rar

 代码要改一下

Select Case e.DataCol.Name
    Case "备案表","登记表"
        If e.OldValue = Nothing OrElse e.OldValue > "" AndAlso e.NewValue > "" AndAlso e.NewValue.Length > e.OldValue.Length Then
            If  FileSys.FileExists(vars("path")) Then
                FileSys.DeleteFile(vars("path"))
            End If
        End If
End Select