以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68162)
--  作者：青山一角
--  发布时间：2015/5/11 15:46:00
--  [求助]

你好！

在狐表中怎么批量导入学生的照片，怎么操作？  谢谢！
--  作者：大红袍
--  发布时间：2015/5/11 15:50:00
--  

 要具体你的问题。

 

1、一个文件夹的所有照片导入？

 

2、根据什么图片信息的文件名导入么？

 

3、上传一个小例子说明问题
--  作者：青山一角
--  发布时间：2015/5/11 16:05:00
--  
一次性导入怎么导入怎么导，我把图片已经用姓名重命名了   谢谢
 
 
图片点击可在新窗口打开查看
--  作者：青山一角
--  发布时间：2015/5/11 16:06:00
--  
图片全放在Attachments文件夹了！
--  作者：大红袍
--  发布时间：2015/5/11 18:36:00
--  

Dim dlg As new  FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim finfo As new FileInfo(file)
        Dim fdr As DataRow = DataTables("表A").Find("第一列 = \'" & finfo.Name.replace(finfo.Extension, "") & "\'")
        If fdr Is Nothing Then
            fdr = DataTables("表A").AddNew
            fdr("第一列") = finfo.Name.replace(finfo.Extension, "")
        End If
        fdr("第三列") = finfo.Name
        FileSys.CopyFile(file, ProjectPath & "Attachments/" & finfo.name)
    Next
End If