以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何给文件列用代码赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62077)
--  作者：zhsenchzhi
--  发布时间：2014/12/25 0:52:00
--  请问如何给文件列用代码赋值
假设有一列 的 扩展类型 为 文件型， 如果不用  单击单元格右边的按钮出现的一个菜单， 而是想通过 代码，来给表增加或者删除行，应该怎样给文件列赋值呢，要求 增加一个文件时，同时复制该文件至 Attachments中，删除文件时，同时从Attachments中删除

对于多文件型 可以用lines属性赋值， 单文件型呢？

同时 对于多文件型， 如果不用lines属性，还有别的方法吗？
--  作者：Bin
--  发布时间：2014/12/25 8:00:00
--  
http://www.foxtable.com/help/topics/2697.htm
--  作者：zhsenchzhi
--  发布时间：2014/12/25 10:17:00
--  
多谢，请问 如果不用filemanager 可以管理文档吗， 我自己在试着做一个文档管理系统，还不知道filemanager怎么用，怎样和列关联，是不是必须在 界面中添加一个filemanager，还是说文件型的列中本身就有一个filemanager，无论 单文件还是多文件型
--  作者：Bin
--  发布时间：2014/12/25 10:18:00
--  
看这里 http://www.foxtable.com/help/topics/0331.htm
--  作者：有点甜
--  发布时间：2014/12/25 10:20:00
--  
添加一个filemanager控件，然后绑定都某列即可。
--  作者：zhsenchzhi
--  发布时间：2014/12/25 10:47:00
--  
添加了filemanager控件，界面上会出现这个控件，我并不想让这个控件出现，把它设成不可见的？ 我个人感觉这样做并不好
--  作者：狐狸爸爸
--  发布时间：2014/12/25 10:59:00
--  
多文件列用Lines简单方便，单文件列直接向单元格写入内容即可。
 
添加文件的代码：
 
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim path As String = FileSys.GetParentPath(dlg.FileName)
    Dim Name As String  = Filesys.GetName(dlg.FileName)
    If path.StartsWith(ProjectPath & "Attachments") = False Then \'如果文件不是来自Attachments目录
        fileSys.CopyFile(dlg.FileName,ProjectPath & "Attachments\\" & Name)
    End If
    Tables("表名").Current("文件列") = Name
End If

删除文件的代码：
Dim Name As String  = dlg.FileName,ProjectPath & "Attachments\\" & Tables("表名").Current("列名")
If filesys.FileExists(name) Then
    filesys.DeleteFile(name)
End If
Tables("表名").Current("文件列")  = nothing
 
[此贴子已经被作者于2014-12-25 11:00:28编辑过]
--  作者：zhsenchzhi
--  发布时间：2014/12/25 11:08:00
--  
多谢
--  作者：zhsenchzhi
--  发布时间：2014/12/25 11:35:00
--  
多谢