以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过代码如何往[图片]字段添加多个图片文件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14366)
--  作者：新闻官
--  发布时间：2011/11/17 7:51:00
--  通过代码如何往[图片]字段添加多个图片文件?

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

 
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：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
        Next
        CurrentTable.Current("电子档案") = fls
    End If
End If

运行之后的图片是叉看不了图片错在哪了 请大神指教急用
--  作者：有点蓝
--  发布时间：2018/4/14 17:43:00
--  
使用系统图片管理窗口添加图片，然后看和自己使用代码添加的图片名称有什么不同。
--  作者：ryubo888
--  发布时间：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
管理器里的没有路径
--  作者：有点甜
--  发布时间：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
--  发布时间：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.

不修改代码前用窗口图片管理器能看就都可以看，先看字段就看不到
--  作者：有点甜
--  发布时间：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