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("RL_员工证件图").AddNew()
r("员工姓名") = Tables(e.Form.Name & "_Table1").Current("员工姓名")
r("文件名") = FileSys.GetName(fl) \'写入文件名
r.Save() \'必须先保存
r.DataRow.SQLInsertFile("附件",fl) \'插入文件
r.DataRow.SQLSetValue("CRC值",CRCCheckFile(fl)) \'保存crc检验值
End If
按帮助一步步来的,只是没有关联表,直接从查询表SQLTable,里取列“员工姓名”,然后赋值到“RL_员工证件图”的“员工姓名” ,发现文件添加不进去!