- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 二进制的使用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134719)
-- 发布时间：2019/5/5 9:52:00
-- 二进制的使用
我想把这个文件存入二进制列，然后在开发的表中写相应的编制人、编制日期、审核人、审核日期等相关数据，通过程序修改二进制表中相应表格的数据，可以实现吗？
-- 发布时间：2019/5/5 9:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:a07 业务完成阶段审计工作.zip |
-- 发布时间：2019/5/5 10:17:00
--
如果存放在二进制列。你如果要修改其内容，需要这样：1、从数据库把文件还原成word；2、用vba代码打开word文件操作保存；3、把文件重新存放到二进制列。
-- 发布时间：2019/5/5 10:37:00
--
1、把word的文件编制为报表模板，然后保存到数据库中，2、使用时从数据库还原成word，把table中相关数据生成新的word文件，3、把文件存入二进制列。这样可以吗？
-- 发布时间：2019/5/5 10:40:00
--
1、把word的文件编制为报表模板，然后保存到数据库中，2、使用时从数据库还原成word，把table中相关数据生成新的word文件，3、把文件存入二进制列。这样可以吗？
可以。
-- 发布时间：2019/5/5 14:49:00
--
以下是例子中的代码，打开文件后文件的路径与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()
-- 发布时间：2019/5/5 14:56:00
--
在这里指定路径，如
dr.SQLLoadFile("附件", "d:\\test.doc")
-- 发布时间：2019/5/5 15:04:00
--
指定路径的是这一行吧？应该怎么修改，路径需要按单元内容动态指定
Dim fl As String = ProjectPath & dr("_Identify") & "." & pts(0)
-- 发布时间：2019/5/5 15:13:00
--
如果你路径列的内容是 d:\\test，那，改成比如
Dim fl As String = dr("路径") & "\\" & dr("_Identify") & "." & pts(0)
-- 发布时间：2019/5/5 15:42:00
--
\'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() \'显示报表