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

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