- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选出无照片的学生 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169308)
-- 发布时间：2021/6/11 13:39:00
-- 筛选出无照片的学生
此主题相关图片如下：2345截图20210611133142.png
我有一个“相片”列， 是以相片名字命名的， 也有一个相片的文件夹，我想筛选出 相片文件夹里没有相片的学生， 就是找出没照片的学生？ 请问如何找
此主题相关图片如下：2345截图20210611132917.jpg
-- 发布时间：2021/6/11 13:45:00
--
遍历所有行，合成图片的完整路径，然后判断是否存在：http://www.foxtable.com/webhelp/topics/0337.htm
-- 发布时间：2021/6/11 15:56:00
-- 历遍所有行的命令是？
If FileSys.FileExists("c:\\fox.jpg") Then
Messagebox.Show("文件已经存在！","提示")
Else
Messagebox.Show("文件不存在或已经被删除！","提示")
End If
-- 发布时间：2021/6/11 16:04:00
--
参考：http://www.foxtable.com/webhelp/topics/1438.htm
For Each r As Row In Tables("订单").Rows
dim n as string = projectpath & "Attachments\\" & r("相片")
dim n as string = projectpath & "Attachments\\" & r("相片")
If FileSys.FileExists(n)=false Then Messagebox.Show(n & "文件不存在或已经被删除！","提示") End If |
Next
-- 发布时间：2021/6/11 16:24:00
-- 能不能让不显示的文件一起显示出来
能不能让不显示的文件一起显示出来〈 〉否则一直按确定啊
-- 发布时间：2021/6/11 16:29:00
--
可以增加一个逻辑列，没有文件的行就勾选
可以到命令窗口测试，Messagebox.Show改为output.show
要理解代码，灵活使用哟
-- 发布时间：2021/6/11 16:51:00
-- 请问是这样吗？
For Each r As Row In Tables("四年级").Rows
Dim n As String = projectpath & "Attachments\\" & r("相片")
If FileSys.FileExists(n)=False Then e.DateRow "逻辑列"= True
output.show(n & "文件不存在或已经被删除!","提示")
End If
Next
-- 发布时间：2021/6/11 17:09:00
--
For Each r As Row In Tables("四年级").Rows
Dim n As String = projectpath & "Attachments\\" & r("相片")
If FileSys.FileExists(n)=False Then
r("逻辑列")= True
output.show(n & "文件不存在或已经被删除!","提示")
End If
Next