在打印隐患排查报告中设置了两个图片列：
此主题相关图片如下：1.jpg
但在打印的时候，会出现图片列未加载上的情况。
此主题相关图片如下：2.jpg
加了一个按钮，设置了如下代码：
Dim ftp As new ftpclient
ftp.host= "***"
ftp.Account = "***"
ftp.password = "***"
ftp.Port = "21"
ftp.UTF8 = False
Dim curtable As Table = CurrentTable
'Dim cr As Row = curtable.Current
For Each dr As DataRow In DataTables("隐患排查整改报告").Select("[选择] = true")
Dim 默认目录 As String = "\" & dr("企业名称") & "\" & dr("年度") & "\" & curtable.Name
'output.show(默认目录)
If ftp.DirExists(默认目录) = False Then
ftp.MakeDir("\" & dr("企业名称"))
ftp.MakeDir("\" & dr("企业名称") & "\" & dr("年度"))
If ftp.MakeDir(默认目录) = False Then
MessageBox.Show("创建目录失败")
Return
End If
End If
Dim path1 As String = ProjectPath & "RemoteFiles\" & dr("企业名称") & "\" & dr("年度") & "\" & "隐患排查治理台账\" & FileSys.GetName(dr("隐患照片"))
ftp.Download(dr("隐患照片"), path1, True)
Dim path2 As String = ProjectPath & "RemoteFiles\" & dr("企业名称") & "\" & dr("年度") & "\" & "隐患排查治理台账\" & FileSys.GetName(dr("验证照片"))
ftp.Download(dr("验证照片"), path2, True)
Next
ftp.Close
现在存在的问题是：
报错：
此主题相关图片如下：微信截图_20220827153726.jpg
请老师帮忙看一下，代码如何修改？谢谢了！
加好友 
发短信
Post By：2022/8/27 16:17:00 [只看该作者]
