老师：
''===============生成二进制==================
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编辑过]
加好友 
发短信
Post By：2018/4/21 9:36:00 [只看该作者]
