- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页显示顺序为什么与代码设定的顺序会有差别？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176788)
-- 发布时间：2022/4/27 0:41:00
-- 网页显示顺序为什么与代码设定的顺序会有差别？
码片段：
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
而实际呈现的，有两个地方乱了位置：
[此贴子已经被作者于2022/4/27 0:44:52编辑过]
-- 发布时间：2022/4/27 8:35:00
--
代码不完整，无法判断问题