通过代码如何往[图片]字段添加多个图片文件? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过代码如何往[图片]字段添加多个图片文件?

共有6994人关注过本帖树形打印复制链接主题：通过代码如何往[图片]字段添加多个图片文件?

新闻官

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：126 威望：0 精华：0 注册：2011/11/10 8:11:00

通过代码如何往[图片]字段添加多个图片文件? 发帖心情

Post By：2011/11/17 7:51:00 [只看该作者]

内部表有个图片的字段,想通过代码添加多个文件如何实现呀?

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/11/17 8:08:00 [只看该作者]

一次可以加入多个图片的代码：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.filter = "|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fls As String = Tables("表A").Current("图片")
    For Each fl As String In dlg.FileNames
        If fls >"" Then
            fls = fls & vbcrlf
        End If
        fls = fls & fl
    Next
    Tables("表A").Current("图片") = fls
End If

ryubo888

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：703 威望：0 精华：0 注册：2017/11/4 13:12:00

Post By：2018/4/14 17:09:00 [只看该作者]

项目事件 AfterOpenProject 中的代码

DataTables("基础资料").DataCols("电子档案").DefaultFolder = ProjectPath & "电子档案/" '字段电子档案存放目录

DataTables("基础资料").DataCols("电子档案").SourceFolder = ProjectPath & "电子档案/" '字段电子档案来源目录

在菜单中按键事件 Click 中的代码如下

If MessageBox.Show("确定选择录入多个电子档案?","请核准信息",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.filter = "|*.bmp;*.jpg;*.gif"

If dlg.ShowDialog = DialogResult.OK Then

Dim fls As String = CurrentTable.Current("电子档案")

For Each fl As String In dlg.FileNames

If fls >"" Then

fls = fls & vbcrlf

End If

fls = fls & fl

CurrentTable.Current("电子档案") = fls

End If

运行之后的图片是叉看不了图片错在哪了请大神指教急用

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110567 积分：562725 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/4/14 17:43:00 [只看该作者]

使用系统图片管理窗口添加图片，然后看和自己使用代码添加的图片名称有什么不同。

ryubo888

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：703 威望：0 精华：0 注册：2017/11/4 13:12:00

Post By：2018/4/14 18:32:00 [只看该作者]

E:\安全管理系统\安全管理系统\电子档案\D_0004.jpg

E:\安全管理系统\安全管理系统\电子档案\D.jpg

E:\安全管理系统\安全管理系统\电子档案\D_0001.jpg

E:\安全管理系统\安全管理系统\电子档案\D_0002.jpg

E:\安全管理系统\安全管理系统\电子档案\D_0003.jpg

管理器里的没有路径

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/15 12:16:00 [只看该作者]

If MessageBox.Show("确定选择录入多个电子档案?","请核准信息",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog
    dlg.MultiSelect = True
    dlg.filter = "|*.bmp;*.jpg;*.gif"
    If dlg.ShowDialog = DialogResult.OK Then
        Dim fls As String = CurrentTable.Current("电子档案")
        For Each fl As String In dlg.FileNames
            FileSys.CopyFile(fl, ProjectPath & "电子档案/" & FileSys.GetName(fl), True)
            If fls >"" Then
                fls = fls & vbcrlf
            End If
            fls = fls & FileSys.GetName(fl)
        Next
        CurrentTable.Current("电子档案") = fls
    End If
End If

ryubo888

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：703 威望：0 精华：0 注册：2017/11/4 13:12:00

Post By：2018/4/16 13:01:00 [只看该作者]

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2018.3.3.1

错误所在事件：菜单,电子档案选择,Click

详细错误信息：

The process cannot access the file 'E:\安全管理系统\安全管理系统\电子档案\D_0004.jpg' because it is being used by another process.

不修改代码前用窗口图片管理器能看就都可以看，先看字段就看不到

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 14:52:00 [只看该作者]

If MessageBox.Show("确定选择录入多个电子档案?","请核准信息",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
    Dim dlg As New OpenFileDialog
    dlg.MultiSelect = True
    dlg.filter = "|*.bmp;*.jpg;*.gif"
    If dlg.ShowDialog = DialogResult.OK Then
        Dim fls As String = CurrentTable.Current("电子档案")
        For Each fl As String In dlg.FileNames
            If fl <> ProjectPath & "电子档案/" & FileSys.GetName(fl) Then
                FileSys.CopyFile(fl, ProjectPath & "电子档案/" & FileSys.GetName(fl), True)
            End If
            If fls >"" Then
                fls = fls & vbcrlf
            End If
            fls = fls & FileSys.GetName(fl)
        Next
        CurrentTable.Current("电子档案") = fls
    End If
End If

下一主题 >> << 上一主题

主题：通过代码如何往[图片]字段添加多个图片文件?