- 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=68164)
-- 发布时间：2015/5/11 16:14:00
-- [求助]
-- 发布时间：2015/5/11 16:16:00
--
能否说具体一些你的问题.
-- 发布时间：2015/5/11 16:19:00
--
把所有学生的照片怎么一次性导入
-- 发布时间：2015/5/11 16:21:00
--
上传图片参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
另外,有具体的问题才有具体的答复,你要怎么导入?
-- 发布时间：2015/5/11 16:25:00
--
上图 学生照片我已经用姓名重命名了，怎么一次把所有学生的照片插入到图片列
-- 发布时间：2015/5/11 18:26: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