以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 删除按钮判断不为空后删除 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153531) |
-- 作者:seal51 -- 发布时间:2020/8/14 9:17:00 -- 删除按钮判断不为空后删除 If Tables("产品列表").Rows(“图纸PDF”)is not null and Tables("产品列表").Rows(“CAD图纸”) is not null Then MessageBox.Show("请先删除图纸PDF,CAD图纸") Return Else If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("产品列表").Current.Delete End If End If 这样写对吗?
|
-- 作者:有点蓝 -- 发布时间:2020/8/14 9:41:00 -- http://www.foxtable.com/webhelp/topics/0595.htm |
-- 作者:seal51 -- 发布时间:2020/8/14 9:53:00 -- 这样修改正确吗? If Tables("产品列表").Current.isnull("图纸PDF") And Tables("产品列表").Current.isnull("CAD图纸") Then If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("产品列表").Current.Delete End If End If Else MessageBox.Show("请先删除图纸PDF,CAD图纸") Return End If |
-- 作者:有点蓝 -- 发布时间:2020/8/14 9:57:00 -- http://www.foxtable.com/webhelp/topics/0223.htm 去掉第5行End If
|
-- 作者:seal51 -- 发布时间:2020/8/14 10:12:00 -- 谢谢!忘记删除了! |
-- 作者:seal51 -- 发布时间:2020/8/14 10:15:00 -- 如果删除行,同时删除数据库后台的图纸PDF,CAD图纸, 代码如何写! |
-- 作者:有点蓝 -- 发布时间:2020/8/14 10:18:00 -- 在删除行前处理: |
-- 作者:seal51 -- 发布时间:2020/8/14 11:10:00 -- 老师的意思是先手动删除,然后再删除行? 对吧! 在代码里加入这个可否 Dim fm1 As WinForm.FileManager = e.Form.Controls("FileManager1") If Messagebox.show("服务器里的此文件将被彻底删除!确定删除此文件吗!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)= DialogResult.Yes Then Dim result As Boolean = fm1.FTPClient.DeleteFile(fm1.SelectedItem) Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Return End If |
-- 作者:有点蓝 -- 发布时间:2020/8/14 11:47:00 -- 测试就知道了,有问题再说 |
-- 作者:seal51 -- 发布时间:2020/8/14 14:20:00 -- 此主题相关图片如下:wyy20200814111551.png [此贴子已经被作者于2020/8/14 14:20:33编辑过]
|