Dim dlg As New OpenFileDialog
dlg.Filter = "PDF文件|*.pdf"
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName
Dim r As Row = Tables("预算录入主表.附件").AddNew()
r("文件名") = FileSys.GetName(fl) '写入文件名
r.Save '先保存
r.DataRow.SQLInsertFile("附件",fl) '插入文件
r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If
我是在新增项目的窗口增加了一个小的添加附件的table控件,增加了“增加、删除、清除、打开”按钮。预览的时候,点增加按钮,选择文件后,没有在table关联表中显示文件名,而是提示错误“=附件有语法错误”,我测试了,在“(“文件名”)=FileSys.GetName(fl)”执行不下去了,不知道该怎么改