With .AddUploader("up1","身份证+应聘表+竞业禁止协议+劳动合同等",True)
.AllowDelete = True
.Accept = "image/*"
.Incremental = True
.ScaleWidth = 400
DataTables("EvdDoc").LoadFilter = "AA = 'aa' And BB = 'bb' And CC = '"& pr!cc &"'"
DataTables("EvdDoc").Load
For Each r As Row In Tables("EvdDoc").Rows
If r!DocNam > ""
Dim fl = "D:\Foxtable\PrsImg\" & r!DocNam
If Filesys.FileExists(fl) Then
.AddImage(fl)
Else
If r.DataRow.SQLLoadFile("EvdDoc",fl) = False Then '如果提取文件失败
Else
.AddImage(fl)
End If
End If
End If
Next
End With
代码是这样的,请指教一下!
[此贴子已经被作者于2022/1/20 12:33:30编辑过]
加好友 
发短信
F6
Post By：2022/1/20 0:39:00 [显示全部帖子]
此主题相关图片如下：图片1.png