With wb.AddInputGroup("form1", "ipg8", "接待(购买)情况{必填}")
With .AddTextArea("jg", 6)
.Value = pr!RcpDsc
.Readonly = True
End With
End With
With .AddUploader("up1", "加电话/微信截图,跟单交流截图,质保单等照片", True) 'True表示允许一次性上传多个文件,但只能上传一次,下次全覆盖.否则一次只能传一个
.AllowAdd = False '关闭文件上传功能
DataTables("EvdDoc").LoadFilter = "DtNam = 'MyRcp' And DocFld = 'DocNo' And LnkID = '" & pr!DocNo & "'"
DataTables("EvdDoc").Load
For Each r As Row In Tables("EvdDoc").Rows
If r!DocNam > ""
Dim fl = "D:\Foxtable\TrcImg\" & r!DocNam
Dim xdfl = "./TrcImg/" & r!DocNam '等于绝对引用:
If Filesys.FileExists(fl) Then
If xdfl.IndexOf(".png") > -1 OrElse xdfl.IndexOf(".jpg") > -1
Else
xtp = r!DocNam.Split(".")(0) + ".jpg"
FileSys.RenameFile(xdfl, xtp)
xdfl = "./TrcImg/" & xtp
If xdfl.IndexOf(".png") > -1 OrElse xdfl.IndexOf(".jpg") > -1
Else
xtp = "./TrcImg/" & r!DocNam.Split(".")(0) & ".jpg"
img = GetImage(xdfl)
img.Save(xtp, imageFormat.jpeg)
xdfl = xtp
End If
End If
.AddImage(xdfl) '必须使用相对路径
Else
If r.DataRow.SQLLoadFile("EvdDoc", fl) = False Then '如果提取文件失败
Else
If xdfl.IndexOf(".png") > -1 OrElse xdfl.IndexOf(".jpg") > -1
Else
xtp = "./TrcImg/" & r!DocNam.Split(".")(0) & ".jpg"
img = GetImage(xdfl)
img.Save(xtp, imageFormat.jpeg)
xdfl = xtp
End If
.AddImage(xdfl)
End If
End If
End If
Next
End With
With .AddInputCell("icsh", 2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("lsjty", "上级同意否", 0) '增加标签,0显示在左边
If wsh = "OK"
.AddInput("sjty", "text", 1).PlaceHolder = "填写不完整,不允许审核!"
Else
If pr!Drc > ""
.AddInput("sjty", "text", 1).Value = pr!Drc
Else
.AddInput("sjty", "text", 1).PlaceHolder = "其直属上司还未审核"
End If
End If
.AddInput("sjty", "text", 1).Readonly = True
End With
If pr!CnfTm > kd
With wb.AddInputGroup("form1","ipg9","上级意见("+ Format(pr!CnfTm, "M月d日 HH:m")+ ")")
With .AddTextArea("sjyj",3)
If pr!DrcEva > ""
If pr!RcvTm > kd
.Value = "【收阅("+ Format(pr!RcvTm, "M月d日 HH:m") + ")】" + pr!DrcEva
Else
.Value = "【未收阅】" + pr!DrcEva
End If
Else
.PlaceHolder = "其直属上司还未审核"
End If
.Readonly = True
End With
End With
Else
With wb.AddInputGroup("form1","ipg9","上级意见")
With .AddTextArea("sjyj",3)
.PlaceHolder = "其直属上司还未审核"
.Readonly = True
End With
End With
End If
而实际呈现的，有两个地方乱了位置：
加好友 
发短信
F6
Post By：2022/4/27 0:41:00 [只看该作者]
