Foxtable(狐表)用户栏目专家坐堂 → 批量插入图片怎么弄呢?


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

主题:批量插入图片怎么弄呢?

美女呀,离线,留言给我吧!
戴森宇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:153 威望:0 精华:0 注册:2016/8/19 11:52:00
批量插入图片怎么弄呢?  发帖心情 Post By:2016/8/29 15:32:00 [只看该作者]

看了论坛里面一些帖子,设置了表达式列,图片名称+'jpg"

然后把图片放在IMAGES下,可是没有任何反应


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/29 15:38:00 [只看该作者]

 Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("表A")
    Dim path As String = t.cols("第十列").DataCol.DefaultFolder
    If path = Nothing Then path = ProjectPath & "attachment"
    For Each f As String In dlg.FileNames
        FileSys.CopyFile(f, path & FileSys.GetName(f), True)
        Dim nr As Row = t.addnew
        nr("第十列") = FileSys.GetName(f)
    Next
End If


 回到顶部
美女呀,离线,留言给我吧!
戴森宇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:153 威望:0 精华:0 注册:2016/8/19 11:52:00
  发帖心情 Post By:2016/8/29 15:59:00 [只看该作者]

可以不用写代码的形式嘛?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/29 16:06:00 [只看该作者]

做一个按钮,然后执行,即可。

 

或者你用具体实例说明你要做什么


 回到顶部