Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2505人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
青山一角
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:116 威望:0 精华:0 注册:2015/5/11 15:28:00
[求助]  发帖心情 Post By:2015/5/11 16:14:00 [只看该作者]

你好!

在狐表中怎么批量导入学生的照片,怎么操作?  谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/11 16:16:00 [只看该作者]

能否说具体一些你的问题.

 回到顶部
帅哥哟,离线,有人找我吗?
青山一角
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:116 威望:0 精华:0 注册:2015/5/11 15:28:00
  发帖心情 Post By:2015/5/11 16:19:00 [只看该作者]

图片点击可在新窗口打开查看
 
把所有学生的照片怎么一次性导入

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/11 16:21:00 [只看该作者]

上传图片参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

另外,有具体的问题才有具体的答复,你要怎么导入?

 回到顶部
帅哥哟,离线,有人找我吗?
青山一角
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:116 威望:0 精华:0 注册:2015/5/11 15:28:00
  发帖心情 Post By:2015/5/11 16:25:00 [只看该作者]

上图   学生照片我已经用姓名重命名了,怎么一次把所有学生的照片插入到图片列

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部