WITH TABLES("a")
if .current isnot nothing then
Dim pbx As WinForm.PictureBox
pbx =e.Form.Controls("PB1")
Dim fl,lj As String
lj=projectpath & "images\dm"
If FileSys.DirectoryExists(lj)=False Then
FileSys.CreateDirectory(lj)
End If
For Each f As String In FileSys.GetFiles(lj)
FileSys.DeleteFile(f,2,2)
Next
fl=Functions.Execute("提取示意图","工单","示意图",.current("_identify"),lj,.current("订单号"))
.current("刀模示意图")=fl
pbx.Imagefile=fl
MessageBox.show(fl)
pbx.SizeMode = ImageSizeMode.Zoom
endif
end with
FL能弹出正确的地址，文件在文件夹里也能看得到 但是在控件里显示是一个红叉
加好友 
发短信
Post By：2019/4/22 18:09:00 [显示全部帖子]
