二进制中代码出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二进制中代码出错

共有2145人关注过本帖树形打印复制链接主题：二进制中代码出错

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/4/21 10:40:00 [显示全部帖子]

信息里是二进制列？还是附件列是？

试试

Dim r As Row = Tables("会议纪要.文件明细").AddNew()

r("文件名称") = dt("纪要名称")

dim dr as datarow = r.DataRow

If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件

dr.Save()

End If

Dim ex As String = flt.SubString(flt.LastIndexOf(".") + 1) '获取文件后缀名

ex = ex & "|" & CRCCheckFile(flt) '将后缀名和文件的crc校验值组合成一个字符串

dr.SQLInsertFile("信息",flt) '插入文件

dr.SQLSetValue("CRC",ex) '将文件的后缀名和crc校验值保存在信息列

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/4/21 11:17:00 [显示全部帖子]

请上传实例测试

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/4/21 15:23:00 [显示全部帖子]

1、删除后要保存才会生效

2、数据库有问题，CRC列改为文本列；信息列类型改为OLE 对象，其次pth变量对应的文件不存在

Dim dt As DataRow = Tables("会议纪要").Current.DataRow

Dim pth As String = ProjectPath & "Attachments\用户工程\" & dt("项目编号") & dt("工程名称") & "\" & dt("会议名称") & "\" & dt("纪要名称") & ".doc" '指定目标文件

if FileSys.FileExists(pth ) = false then

msgbox("文件不存在")

return

endif

3、代码放到beforeclose事件

主题：二进制中代码出错