- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 获取文件名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170500)
-- 发布时间：2021/7/28 16:41:00
-- 获取文件名
老师，这样获取到的是文件名是带路径的，怎么只要文件名和后缀，并将word和excel后缀添加到表中
For Each File As String In FileSys.GetFiles(ProjectPath & "\\Attachments\\")
Dim r As Row = Tables("报表管理").AddNew
r("文件名") = File
Next
此主题相关图片如下：1.jpg
-- 发布时间：2021/7/28 17:03:00
--
参考：http://www.foxtable.com/webhelp/topics/1406.htm
r("文件名") = FileSys.GetName(File)
-- 发布时间：2021/7/28 17:47:00
--
老师，为什么报表管理表为空时（一行都没有），r集合就为空，代码不执行呢
For Each File As String In FileSys.GetFiles(ProjectPath & "\\Attachments\\")
For Each r As Row In Tables("报表管理").Rows
Dim dr As DataRow = DataTables("报表管理").Find("文件名 = \'" & FileSys.GetName(File) & "\'")
If dr Is Nothing Then
Dim r1 As Row = Tables("报表管理").AddNew
r1("文件名") = FileSys.GetName(File)
r1.Save
End If
Next
Next
[此贴子已经被作者于2021/7/28 17:52:26编辑过]
-- 发布时间：2021/7/28 17:54:00
--
找到问题了这个集合多余
For Each r As Row In Tables("报表管理").Rows