以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多文件列问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185605)
--  作者：HJG_HB950207
--  发布时间：2023/3/5 10:02:00
--  多文件列问题
表A,有多文件列【 收文件】，文件均存放在  “ProjectPath &  收文件”  文件夹中，由于误操作原因，把通过【 收文件】列增加到文件夹中的某些文件删除了。

请教：1.找出表A中【收文件】列有文件记录，但”ProjectPath &  收文件“文件夹中实际不存在该文件的记录；
        2.删除表A中【收文件】列中该文件记录，同时同条记录中其他文件不删除。
--  作者：有点蓝
--  发布时间：2023/3/5 20:42:00
--  
遍历所有行，后遍历文件列的lines，看看：http://www.foxtable.com/webhelp/topics/2717.htm

判断是否存在文件参考：http://www.foxtable.com/webhelp/topics/0337.htm

for each r as row in tables(A).rows
    Dim fls As List(of String)
    fls = r.DataRow.Lines("文件")
for i as integer = fls.count - 1 to 0 step -1
If FileSys.FileExists(ProjectPath & "收文件\\" & fls(i)) = false  Then
fls.removeat(i)
end if
next
r.DataRow.Lines("文件") = fls 
next