以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]合并数据报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175926)

--  作者:天一生水
--  发布时间:2022/3/24 10:30:00
--  [求助]合并数据报错
老师好!
党建活动 表的DataColChanged,当上传的 [文档] 列或 [图片] 列清空时,就删除对应的文件夹。
这段代码在合并数据时会报错是什么原因?

If e.DataCol.Name = "活动内容_文档" Then    \'删除对应文件目录
    If e.NewValue.IsNull("活动内容_文档") Then
        FileSys.DeleteDirectory(ProjectPath & "Attachments\\党建活动\\文档\\" & Format(e.DataRow("活动时间") ,"yyyy-MM-dd"),3,3)
    End If
End If

If e.DataCol.Name = "活动内容_图片" Then
    If e.NewValue.IsNull("活动内容_图片") Then
        FileSys.DeleteDirectory(ProjectPath & "Attachments\\党建活动\\图片\\" & Format(e.DataRow("活动时间") ,"yyyy-MM-dd"),3,3)
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:报错.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/3/24 11:08:00
--  
If e.DataCol.Name = "活动内容_文档" Then    \'删除对应文件目录
    If e.DataRow.IsNull("活动内容_文档") andalso e.DataRow.IsNull("活动时间") = false Then
if FileSys.DirectoryExists(ProjectPath & "Attachments\\党建活动\\文档\\" & Format(e.DataRow("活动时间") ,"yyyy-MM-dd")) then
FileSys.DeleteDirectory(ProjectPath & "Attachmen..........