- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 无法一次完成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50960)
-- 发布时间：2014/5/15 21:48:00
-- 无法一次完成
For Each a As Row In Tables("图片表").Rows
If FileSys.FileExists("E:\\sh_001\\" & a("img_a")) AndAlso FileSys.FileExists("E:\\sh_001\\" & a("img_b")) AndAlso FileSys.FileExists("E:\\sh_001\\" & a("img_c")) Then
Else
a.Delete()
End If
Next
为什么不能一次全部 判断并且删除呢？
需要单击两次或者三次，才能 完成删除
-- 发布时间：2014/5/15 22:01:00
--
这样写
[此贴子已经被作者于2014-5-15 22:03:35编辑过]
-- 发布时间：2014/5/15 22:03:00
--
写错了，再改一下
For i As Integer = Tables("图片表").Rows.Count - 1 To 0 Step -1
Dim a As Row = Tables("图片表").Rows(i)
If FileSys.FileExists("E:\\sh_001\\" & a("img_a")) AndAlso FileSys.FileExists("E:\\sh_001\\" & a("img_b")) AndAlso FileSys.FileExists("E:\\sh_001\\" & a("img_c")) Then
Else
a.delete
End If
Next
-- 发布时间：2014/5/15 22:07:00
--
39
[此贴子已经被作者于2014-5-15 22:11:42编辑过]
-- 发布时间：2014/5/15 22:13:00
--
看3楼代码，如果还有错，贴出错误