信息里是二进制列？还是附件列是？
试试
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校验值保存在信息列
加好友 
发短信
Post By：2018/4/21 10:40:00 [只看该作者]
