Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除


  共有3369人关注过本帖树形打印复制链接

主题：[求助]删除
帅哥哟，离线，有人找我吗？
江南小镇
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/9 12:29:00 [显示全部帖子]

老师，代码修改后还是报错。

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,出库,Button16,Click
详细错误信息：
给定的文件路径以目录分隔符字符结尾。
参数名: file
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/9 15:37:00 [显示全部帖子]

老师，可以这样做吗？

If Tables("出库.出库明细") .Rows.count = 0  Then
    MessageBox.Show("没有可删除!")
    Return
End If
If Tables("出库.出库明细") .Rows.count > 0 AndAlso   Tables("出库.出库明细") .Current.Isnull("审核人") = False  Then
    MessageBox.Show("已审核,请反审!")
    Return
End If
=DialogResult.OK Then
If Tables("出库.出库明细") .Current.Isnull("审核人") = True   Then
    If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then       
        If Tables("出库.出库明细").Current Is Nothing Then
            msgbox("表格为空,不能删除")
        Else        
            If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
                MessageBox.Show("请先指定存储路径!","提醒")
                Return
            End If            
            If Tables("出库.出库明细").Current.isnull("送货单") = True Then  '若未存储文件名
                MessageBox.Show("未上传文件!","提醒")
                Return
            End If            
            If e.Form.Controls("文件名").text = "文件已被删除!" Then
                Tables("出库.出库明细").Current("送货单") = Nothing
                e.Form.Controls("文件名").text = "未上传文件!"
                Return
            End If
            If MessageBox.Show("是否删除文件?","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                filesys.DeleteFile(e.Form.Controls("路径").text & "\" & e.Form.Controls("文件名").text,2,2)
                e.Form.Controls("文件名").text  = "未上传文件!"
                Tables("出库.出库明细").Current("送货单") = Nothing            
                Tables("出库.出库明细") .Current.Delete
            End If
        End If       
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/9 16:12:00 [显示全部帖子]

老师，上面代码是可以用的，还有一列也是图片列在同一行上。也要先清空文件夹中的图片再删除行，怎样在上面的代码中再添加代码。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/9 21:24:00 [显示全部帖子]

老师，下面代码在没有保存的时候清空图片列和删除行都可以的，通过按钮保存后再用下面代码为报错。

图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看


 If Tables("出库.出库明细") .Rows.count = 0  Then
    MessageBox.Show("没有可删除!")
    Return
End If
If Tables("出库.出库明细") .Rows.count > 0 AndAlso   Tables("出库.出库明细") .Current.Isnull("审核人") = False  Then
    MessageBox.Show("已审核,请反审!")
    Return
End If
If Tables("出库.出库明细") .Current.Isnull("审核人") = True   Then
    If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
        If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
            MessageBox.Show("请先指定存储路径!","提醒")
            Return
        End If
        
        If Tables("出库.出库明细").Current.isnull("送货单") = True Then  '若未存储文件名
            MessageBox.Show("未上传文件!","提醒")
            Return
        End If
        
        If e.Form.Controls("文件名").text = "文件已被删除!" Then
            Tables("出库.出库明细").Current("送货单") = Nothing
            e.Form.Controls("文件名").text = "未上传文件!"
            
            Return
        End If
        If MessageBox.Show("是否删除文件?","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            filesys.DeleteFile(e.Form.Controls("路径").text & "\" & e.Form.Controls("文件名").text,2,2)
            e.Form.Controls("文件名").text  = "未上传文件!"
            Tables("出库.出库明细").Current("送货单") = Nothing
            Tables("出库.出库明细") .Current.Delete
        End If
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/10 21:05:00 [显示全部帖子]

老师，通过下面代码打开图片后再用删除按钮就不报错。

If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
End If

If Tables("出库.出库明细").Current.isnull("送货单") = True Then  '若未存储文件名
    MessageBox.Show("未上传文件!","提醒")
    Return
End If

If e.Form.Controls("文件名").text = "文件已被删除!" Then
    Tables("出库.出库明细").Current("送货单") = Nothing
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
    Return
End If

msgbox(e.Form.Controls("路径").text)
msgbox(e.Form.Controls("文件名").text)
Dim proc As new Process
proc.File = e.Form.Controls("路径").text & "\" & Tables("出库.出库明细").Current("送货单")
proc.Start
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/11 7:58:00 [显示全部帖子]

老师，图片上传不了。


图片点击可在新窗口打开查看此主题相关图片如下：图片.png
图片点击可在新窗口打开查看
 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片管理.table

图片点击可在新窗口打开查看此主题相关图片如下：image 3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/11 11:12:00 [显示全部帖子]

老师，上面代码保存关闭项目再打开操作出库窗口路径有不对了，没有办法删除。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/11 14:51:00 [显示全部帖子]

老师好

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片管理.table

图片点击可在新窗口打开查看此主题相关图片如下：image 2.png
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/11/11 20:15:00 [显示全部帖子]

老师，是这样的，现在我搞糊涂了。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/12/2 11:20:00 [显示全部帖子]

老师好，下面代码在按第二次删除按钮时就不起作用了，还把行删除了

Dim r As Row = Tables("通讯录").Current
If r Is Nothing Then
    Return
End If
If r.Isnull("第一列") AndAlso r.Isnull("第二列") AndAlso r.Isnull("第三列") AndAlso r.Isnull("第四列") AndAlso r.Isnull("第五列") AndAlso r.Isnull("第六列") Then      
   r.Delete()
Else
   Messagebox.show("请先删除图片列内容,才能删除行!")
End If
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 7 次数据查询