此主题相关图片如下：4.png
此主题相关图片如下：3.png
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_员工证件图”的“员工姓名” ，发现文件添加不进去！
[此贴子已经被作者于2021/12/25 21:47:17编辑过]
加好友 
发短信
Post By：2021/12/25 21:26:00 [显示全部帖子]
