主题：[求助] 附件问题

Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.txt;*.xls;*.doc;*.cad;*.vsd;*.pptx;*.dwg;*.kmz;*.mdb;*.psd;*.rar"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fl As String = dlg.FileName
   
    DataTables("工程资料台帐表附件").Save()
    Dim r As Row = Tables("工程资料台帐表附件").AddNew()
    DataTables("工程资料台帐表附件").Save()
 msgbox(1)  
    r("项目编号") = Forms("工程资料台帐表主窗口").Controls("项目编号").Text
    Dim n As Row = Tables("工程资料台帐表").Current
msgbox(2)
    r("工程Identify") = n("_Identify")
msgbox(3)
    r("文件名") = FileSys.GetName(fl) '写入文件名
msgbox(4)
    r.Save '必须先保存
msgbox(5)
    r.DataRow.SQLInsertFile("附件",fl) '插入文件
msgbox(6)
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
msgbox(7)
End If

msgbox(8)

Dim t As Table = Forms("工程资料台帐附件窗口").Controls("Table1").Table
msgbox(9)
Dim n1 As Row = Tables("工程资料台帐表").Current
msgbox(10)
t.Filter = "工程Identify = '" & n1("_Identify") & "' or 工程Identify = '' "
msgbox(11)