二进制列 文件无法保存
当前窗体有两个sqltable表 其中sqltable1对应数据库中的附件表
代码如下:
Dim dlg As New OpenFileDialog
dlg.Filter = "所有文件|*.*"
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName
Dim r As Row = Tables("递交申请_table1").AddNew()
DataTables("附件表").save
r.Save '必须先保存
r("文件名") = FileSys.GetName(fl) '写入文件名
r.DataRow.SQLInsertFile("附件",fl) '插入文件
r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If
上述代码操作后,不关闭当前窗体可以查看文件及文件名 也可以正常打开
关闭窗体重新打开后 文件名数据为空