主题：[求助]检查文件输入名称是否存在，将不同列的的图片、文件放在各自文件夹中

同一表中，有检测单位、编号、报告及检查人、检查日期、照片六列，当插入报告时检查检测单位、编号是否为空，当插入照片时检测检查人、检查日期是否为空，并将报告和照片放在各自文件夹中，下列编码应怎样修改。

Dim dr As DataRow = e.DataRow

If dr.IsNull("检查人") Or dr.IsNull("检查日期")  Then

    MessageBox.Show("检查人和检查日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    e.Cancel = True

Else

    e.SubFolder = dr("检查日期").Date & dr("检查人")

End If

判断一下列名，如

If e.DataCol.Name = "照片" Then    
    Dim dr As DataRow = e.DataRow    
    If dr.IsNull("检查人") Or dr.IsNull("检查日期")  Then        
        MessageBox.Show("检查人和检查日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)        
        e.Cancel = True        
    Else        
        e.SubFolder = dr("检查日期").Date & dr("检查人")       
    End If
   
ElseIf e.DataCol.Name = "报告" Then
       
End If