主题：二进制的使用

我想把这个文件存入二进制列，然后在开发的表中写相应的编制人、编制日期、审核人、审核日期等相关数据，通过程序修改二进制表中相应表格的数据，可以实现吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a07 业务完成阶段审计工作.zip

 

如果存放在二进制列。你如果要修改其内容，需要这样：1、从数据库把文件还原成word；2、用vba代码打开word文件操作保存；3、把文件重新存放到二进制列。

 

 

1、把word的文件编制为报表模板，然后保存到数据库中，2、使用时从数据库还原成word，把table中相关数据生成新的word文件，3、把文件存入二进制列。这样可以吗？

 

可以。

以下是例子中的代码，打开文件后文件的路径与foxtable程序的路径一致，怎么才能把打开的文件存放在指定目录中

If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim pts() As String = dr.SQLGetValue("信息").Split("|")
Dim fl As String =  ProjectPath &  dr("_Identify") & "." & pts(0)
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = pts(1) Then '如果本地存在同名文件且CRC校验值相同
    '则直接使用本地文件
Else '否则从数据库提取文件
    If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()

在这里指定路径，如

 

 dr.SQLLoadFile("附件", "d:\test.doc")

 

指定路径的是这一行吧？应该怎么修改，路径需要按单元内容动态指定

Dim fl As String =  ProjectPath &  dr("_Identify") & "." & pts(0)

如果你路径列的内容是 d:\test，那，改成比如

 

Dim fl As String =  dr("路径") & "\" & dr("_Identify") & "." & pts(0)

'Dim tm As String  = ProjectPath & "Attachments\CurrentTable.current("审计项目") & "".doc""" '指定模板文件   怎么动态指定文件名称
        'Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
        'Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
        'wrt.Build() '逐行生成报表
        'wrt.Show() '显示报表