- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 二进制中代码出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117936)
-- 发布时间：2018/4/21 9:36:00
-- 二进制中代码出错
老师：
\'\'===============生成二进制==================
Dim dt As DataRow = Tables("会议纪要").Current.DataRow
Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & dt("项目编号") & dt("工程名称") & "\\" & dt("会议名称") & "\\" & dt("纪要名称") & ".doc" \'指定目标文件
Dim flt As String = FileSys.GetName(pth)
If Tables("会议纪要.文件明细").Current Is Nothing Then
Return
End If
Dim r As Row = Tables("会议纪要.文件明细").AddNew()
r("文件名称") = dt("纪要名称")
If r.DataRow.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
r.DataRow.Save()
End If
Dim ex As String = flt.SubString(flt.LastIndexOf(".") + 1) \'获取文件后缀名
ex = ex & "|" & CRCCheckFile(flt) \'将后缀名和文件的crc校验值组合成一个字符串
r.DataRow.SQLInsertFile("信息",flt) \'插入文件
r.DataRow.SQLSetValue("CRC",ex) \'将文件的后缀名和crc校验值保存在信息列
上面代码红色部分出错了
此主题相关图片如下：8888.png
[此贴子已经被作者于2018/4/21 9:37:20编辑过]
-- 发布时间：2018/4/21 9:56:00
--
此主题相关图片如下：搜狗截图20180421095534.png
-- 发布时间：2018/4/21 10:08:00
--
存在的，如下图：
此主题相关图片如下：7777.png
-- 发布时间：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校验值保存在信息列
-- 发布时间：2018/4/21 10:52:00
--
有点蓝老师：
还是不行，出现同样错误提示。
-- 发布时间：2018/4/21 11:17:00
--
请上传实例测试
-- 发布时间：2018/4/21 12:05:00
--
有点蓝老师：
需求是：
1、有二进制数据列的数据表，行无法删除？
2、1楼的问题？
3、”桩基图像“窗口关闭出错？
上面三个问题请老师帮我解决一下，十分感谢！
-- 发布时间：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事件