以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二进制列 文件无法保存 求助！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148948)
--  作者：李孝春
--  发布时间：2020/4/19 16:39:00
--  二进制列 文件无法保存 求助！
二进制列 文件无法保存

当前窗体有两个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

上述代码操作后，不关闭当前窗体可以查看文件及文件名  也可以正常打开

关闭窗体重新打开后  文件名数据为空
--  作者：有点蓝
--  发布时间：2020/4/19 22:41:00
--  
代码如下：
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()
    r("文件名") = FileSys.GetName(fl) \'写入文件名，换个位置
    DataTables("附件表").save
    r.Save \'必须先保存
    r.DataRow.SQLInsertFile("附件",fl) \'插入文件
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) \'保存crc检验值
End If