以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想更方便地在多文件列中添加文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70110)
--  作者：sxdoc
--  发布时间：2015/6/16 7:03:00
--  想更方便地在多文件列中添加文件
在多文件列（列名为“图片”）中如果不用孤表默认的方法添加文件，而是在菜单中另外设置一个按钮，点击后可以将"C:\\A图片.jpg"添加到当前行的多文件列中，如何设置代码，请高手帮忙
--  作者：Bin
--  发布时间：2015/6/16 8:36:00
--  
赋值很简单

Tables("X").Current("列名")=Tables("X").Current("列名") & vbcrlf & "A图片.jpg"


文件复制方面,如果是局域网参考帮助http://www.foxtable.com/help/topics/0331.htm
--  作者：bzfc57
--  发布时间：2015/6/16 10:00:00
--  
楼主意思，不是单纯改名称，而是通过按钮直接加入图片

Dim dlg As New OpenFileDialog
Dim flm As WinForm.FileManager = Tables("患者诊疗记录").Cols("B超图片").FileManager
dlg.Filter= "JPG图片|*.jpg|png图片|*.png|Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
        flm.AddFile(dlg.FileName.SubString(pth.Length))
    Else \'如果不是
        Dim ext As String
        ext = dlg.FileName.SubString(dlg.FileName.LastIndexof(".") + 1)
        Dim name As String=Format(Date.now, "D") & "_" & Date.now.hour & "时" & Date.now.Minute & "分" & Date.now.Second & "秒" & e.Sender.name & "." & ext

        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(Name))
        flm.AddFile(FileSys.GetName(Name))
    End If
End If
--  作者：Bin
--  发布时间：2015/6/16 10:20:00
--  
注意2楼的描述和代码.并不是改名称哦. 就是直接添加哦