- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]使用Preview为什么同一界面不能放入其它的控件呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150322)
-- 发布时间：2020/5/27 8:09:00
-- [求助]使用Preview为什么同一界面不能放入其它的控件呢？
使用Preview为什么同一界面不能放入其它的控件呢？
使用Preview控件A显示内容。下面有两个按钮B。希望在AB中间加入一个图片浏览Uploader。可是无论如何这个Uploader就是无法加入。
加入在AB之间，B就不显示了；加入到B之后，Uploader根本就不显示。中间加入了表单也不行。
Preview和其它控件可以在同一屏幕上使用么？问题出在哪里呢？谢谢
此主题相关图片如下：qq图片20200527080537.png
-- 发布时间：2020/5/27 8:51:00
--
AddInputGroup不能嵌套使用，就是不能在AddInputGroup里面套AddInputGroup
-- 发布时间：2020/5/27 9:15:00
--
没有嵌套使用啊?例子里没有AddInputGroup,开始就用的是With wb.AddPreview,我加入Uploader时才用的AddInputGroup.就用了这一个
-- 发布时间：2020/5/27 9:25:00
--
上面截图代码就是嵌套了
-- 发布时间：2020/5/27 9:36:00
--
不好意思!那是切图时打开封闭时多打开一条.,实际情况如下,程序和实际打开的窗口如下!谢谢
此主题相关图片如下：qq图片20200527093145.png
-- 发布时间：2020/5/27 9:45:00
--
1、检查路径是否正确
-- 发布时间：2020/5/27 9:46:00
--
全部程序在这里,上端显示不下的就是一些取参数之类的
此主题相关图片如下：qq图片20200527094249.png
-- 发布时间：2020/5/27 9:51:00
--
代码复制到记事本发上来
-- 发布时间：2020/5/27 9:53:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer \'= e.GetValues("page")
Integer.TryParse(e.GetValues("page"), PageNumber)
Dim PrimaryKey As String = e.GetValues("key")
Dim rh As DataRow
Dim dhhm As String = e.Cookies("PhoneNum")
Dim ycid As String = e.Cookies("ycId") \'从cookie中获取 随机ID
Dim xzzd As String = e.Cookies("xzzd") \'从cookie中获取 随机ID
Dim _UserName As String=e.cookies("UserName")
Dim _UserBm As String=e.cookies("UserBm")
Dim PageURL1 As String= "yc_sj_sqd.htm?page=" & PageNumber & "&key=" & PrimaryKey & "&xzzd=" & xzzd
wb.AppendCookie("PageNumber",PageNumber) \'将用户名和密码写入cookie
wb.AppendCookie("PrimaryKey",PrimaryKey)
Dim lszc As String
Integer.TryParse(e.GetValues("key"),PrimaryKey )
If e.GetValues.ContainsKey("deloid") Then
DataTables("用车申请单").SQLDeleteFor("[_Identify]=" & ycid) \'e.GetValues("deloid"))
wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")
wb.AddToast("","t2", e.GetValues("deloid") & "数据删除完毕",0).Msec= 800
e.WriteString(wb.Build)
Return 0
End If
Dim zz1() As String={"车牌号","事由"}
With wb.AddDialog("","dlg1", "删除确认",ycid & "您确定要删除当前记录吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定","yc_sj_cxxx.htm?key=" & PrimaryKey & "&deloid=" & ycid) \'.Attribute = ""
End With
Dim zz2() As String={"用车城市","用车地点","司机","申请日期","流程状态"}
\',"公司审批人","公司审批结果","部门审批人","部门审批结果"}
rh=DataTables("用车申请单").sqlfind("[_Identify]=\'" & PrimaryKey & "\'")
If rh IsNot Nothing Then
wb.AppendCookie("ycID",PrimaryKey)
wb.AppendCookie("xzzd",rh("流程状态"))
With wb.AddPreview("","pv1","司机交车",rh("申请号") & "/" & rh("申请人"))
For Each x As String In zz1
.AddItem(x,rh(x))
Next
.AddItem("用车时间",format(rh("用车时间"),"f") & "/" & format(rh("返回时间"),"f"))
.AddItem("公里数","发车:" & rh("发车公里数") & " 返回:" & rh("返回公里数"))
For Each x As String In zz2
.AddItem(x,rh(x))
Next
.AddItem("部门审核",rh("部门审批人") & "-" & rh("部门审批结果"))
.AddItem("公司审核",rh("公司审批人") & "-" & rh("公司审批结果"))
End With
Dim lb1 As String="NewAdd"
Dim lb2 As String="Update"
Dim xgbs As Integer=-1
Dim PageURL As String= "yc_sj_sqd.htm?page=" & PageNumber & "&key=" & PrimaryKey & "&xzzd=" & rh("流程状态")
Dim tpml As String
\'
\'If rh.Isnull("图片")=False Then
\'With wb.AddInputGroup("form2","ipg1","图片浏览")
\'\'
\'With .AddUploader("up2","照片浏览",True)
\'.AllowAdd = False \'关闭文件上传功能
\'Dim lsts As New List(of String)
\'lsts = rh("图片")
\'For Each lst As String In lsts
\'Dim lsml As String=tpml & lst
\'.AddImage(lsml)
\'Next
\'End With
\'End With
\'End If
\'\'
With wb.AddButtonGroup("","btg1",False)
Select rh("流程状态")
Case "部门同意","公司同意","完成任务"
.Add("btn15","修改","","yc_sj_editx.htm?key=" & PrimaryKey & "&page=" & PageNumber & "&czbs=" & lb2) \'.Attribute = ""
End Select
.Add("btn16","返回","",PageURL) \'.Attribute ="" \'" \' ""
End With
\' End With
End If
wb.AppendHTML("<script src=\'./lib/table.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Return 0
-- 发布时间：2020/5/27 9:54:00
--
最新测试结果.如果加上 If rh.Isnull("图片")=False Then......End If 这段就什么也不显示了