主题：请问如何给文件列用代码赋值

假设有一列 的 扩展类型 为 文件型， 如果不用  单击单元格右边的按钮出现的一个菜单， 而是想通过 代码，来给表增加或者删除行，应该怎样给文件列赋值呢，要求 增加一个文件时，同时复制该文件至 Attachments中，删除文件时，同时从Attachments中删除

http://www.foxtable.com/help/topics/2697.htm

多谢，请问 如果不用filemanager 可以管理文档吗， 我自己在试着做一个文档管理系统，还不知道filemanager怎么用，怎样和列关联，是不是必须在 界面中添加一个filemanager，还是说文件型的列中本身就有一个filemanager，无论 单文件还是多文件型

看这里 http://www.foxtable.com/help/topics/0331.htm

添加一个filemanager控件，然后绑定都某列即可。

添加了filemanager控件，界面上会出现这个控件，我并不想让这个控件出现，把它设成不可见的？ 我个人感觉这样做并不好

多文件列用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
 

多谢

多谢