经排查 系下面红色部分值 没有正常写入数据库 麻烦老师帮忙看看是啥原因 谢谢!
下述项目在本地ACC时候是没有问题的 就是项目转移到SQL之后 出现的问题
数据库表结构 附件表已经作为副本表 且不是sqltable之类的表……
窗体表内容
代码部分
运行提示错误:
数据库查看结果 附件和crc没有写入
当前上传附件代码:
If Tables("报告书登记_table2").Current("编号")="" Then
MessageBox.Show("报告书编号尚未生成,请先检查.","温馨提示")
Else
Tables("报告书登记_table2").Current.Save
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png|文档文件|*.doc;*.docx;*.xls;*.xlsx|压缩文件|*.rar;*.zip"
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName
Dim r As Row = Tables("报告书登记_table3").AddNew()
r("编号")=Tables("报告书登记_table2").Current("编号")
r("卷宗编号") = Tables("报告书登记_table2").Current("卷宗编号")
r("文件名") = FileSys.GetName(fl) '写入文件名
r.Save '必须先保存
'MessageBox.Show("5")
r.DataRow.SQLInsertFile("附件",fl) '插入文件
'MessageBox.Show("6")
r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If
End If
[此贴子已经被作者于2022/1/17 11:09:09编辑过]