| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于exweui可查询的列表框AddQuerySelect (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171623) |
| -- 作者：liufucan -- 发布时间：2021/9/4 18:18:00 -- 关于exweui可查询的列表框AddQuerySelect exweui可查询的列表框AddQuerySelect需要ExWeUI.WebUI.AddInputGroup，无法与weui本身的AddInputGroup融为一体 |
| -- 作者：liufucan -- 发布时间：2021/9/5 9:06:00 -- 也就是AddQuerySelect可以插入到weui的AddInputGroup中的两个AddInput之间吗？试了一下wb.InsertHTML("form1",ipg.BuildHtml) 都不行，放在最后了 [此贴子已经被作者于2021/9/5 10:13:39编辑过]
|
| -- 作者：liufucan -- 发布时间：2021/9/5 9:28:00 -- 强烈建议官方将exweui整合进weui里面 |
| -- 作者：有点蓝 -- 发布时间：2021/9/5 20:52:00 -- 以下是引用liufucan在2021/9/4 18:18:00的发言：
里面的testqueryselect.htm页面处理就是，请认真理解
exweui可查询的列表框AddQuerySelect需要ExWeUI.WebUI.AddInputGroup，无法与weui本身的AddInputGroup融为一体 |
| -- 作者：liufucan -- 发布时间：2021/9/6 8:21:00 -- 老师说的是这个吧，我看了，我的意思是我想AddQuerySelect插入到weui的AddInputGroup中的两个AddInput之间 Case "testqueryselect.htm"
Dim wb As New weui wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True) wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>",True) wb.AddForm("","form1","testres.htm") With wb.AddInputGroup("form1","ipg1","WeUI列表动态设置可查询列表") .AddSelect("ss1","省市","|" & DataTables("行政区域").GetComboListString("省市")).Attribute = """ End With Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("","ipg2") Dim Inp As ExWeUI.ExQuerySelect = ipg.AddQuerySelect("xs1","县市") inp.url="getSelect2" inp.AsFields = "ss1" Inp.Placeholder = "请选择县市" wb.InsertHTML("form1",ipg.BuildHtml) ipg = ExWeUI.WebUI.AddInputGroup("","ipg3","可查询列表动态设置WeUI列表") Inp = ipg.AddQuerySelect("ss","省市","|" & DataTables("行政区域").GetComboListString("省市")) Inp.Attribute = """ inp.url="getSelect1" wb.InsertHTML("form1",ipg.BuildHtml) With wb.AddInputGroup("form1","ipg4","") .Attribute = "style = ""margin-top:0px""" .AddSelect("xs","县市","") End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With wb.AppendHTML("<script>initExWeUI();</script>") e.WriteString(wb.Build) \'生成网页 |
| -- 作者：有点蓝 -- 发布时间：2021/9/6 8:40:00 -- 可以的，自己理解一下代码 |
| -- 作者：liufucan -- 发布时间：2021/9/6 9:38:00 -- With wb.AddInputGroup("form1","ipg4","") .Attribute = "style = ""margin-top:0px""" .AddInput("预测面积","预测面积","text") wb.InsertHTML("form1",ipg.BuildHtml) .AddInput("姓名","姓名","text") End With 比如这个，插入的列表框跑到最下面了，而不是预测面积和姓名的中间
|
| -- 作者：有点蓝 -- 发布时间：2021/9/6 9:46:00 -- 预测面积和姓名分开放到2个AddInputGroup里 With wb.AddInputGroup("form1","ipg4","") .Attribute = "style = ""margin-top:0px""" .AddInput("预测面积","预测面积","text") End With wb.InsertHTML("form1",ipg.BuildHtml) With wb.AddInputGroup("form1","ipg5","") .Attribute = "style = ""margin-top:0px""" .AddInput("姓名","姓名","text") End With |
| -- 作者：liufucan -- 发布时间：2021/9/6 10:35:00 -- 哦，原来是这样啊，说明还是不太兼容，我要是20个AddInput就要写20个AddInputGroup，建议把exweui整合进weui里面多好 [此贴子已经被作者于2021/9/6 10:37:31编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/9/6 10:44:00 -- 不同的框架肯定不兼容了。把easyui和layui放到一起使用也一样会有问题 |