以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]检查文件输入名称是否存在，将不同列的的图片、文件放在各自文件夹中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115822)
--  作者：djm2003
--  发布时间：2018/3/15 10:39:00
--  [求助]检查文件输入名称是否存在，将不同列的的图片、文件放在各自文件夹中

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

 

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
--  作者：有点甜
--  发布时间：2018/3/15 10:42:00
--  

判断一下列名，如

 

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