以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  可查询列表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177134)
--  作者：cd_tdh
--  发布时间：2022/5/10 16:06:00
--  可查询列表

请老师看看wb框架中的查询列表没用来

我原来登录界面代码如下：

............

wb.AddTopTips("","toptip1","请选择项目名称并输入登录账号和登录密码!")
        wb.AddForm("","form1","logon.htm").Attribute = ""     \'调用valid JS 函数
        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style=\'margin-top:0.3em\'"  \'调整顶端距离

            .AddSelect("userxmmc","项目名称","|" & DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            .AddInput("username","登录账号","text").Placeholder = "请输入账号"
            .AddInput("password","登录密码","password").Placeholder = "请输入密码"
        End With
        With wb.AddButtonGroup("form1","btg1",False)     \'True) \'False为水平排列
            .Add("btn1", "登录", "submit")
            \'.Add("btn2", "退出", "exit.htm").Kind = 1    \'.Add("btn9", "按钮").Kind = 1
        End With

..........

想把项目名称改为可查询列表，列表一直不出来，有点绕晕了，请老师看看，testres.htm页面我已加到了内部函数里面

..........

        wb.AddTopTips("","toptip1","请选择项目名称并输入登录账号和登录密码!")
        wb.AddForm("","form1","logon.htm").Attribute = ""     \'调用valid JS 函数

        wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)  \'需要注意的是,这里必需要使用true参数,假设文件放在weui目录中
        wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>",True)
        wb.AddForm("","form2","testres.htm")
        With ExWeUI.WebUI.AddInputGroup("form2","ipg1")
            .AddQuerySelect("userxmmc","项目名称",DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            wb.InsertHTML("form1",.BuildHtml)
        End With

        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style=\'margin-top:0\'"  \'调整顶端距离
            \'.AddSelect("userxmmc","项目名称",  "|" & DataTables("项目用户管理").sqlGetComboListString("项目名称","","序号"))
            .AddInput("username","登录账号","text").Placeholder = "请输入账号"
            .AddInput("password","登录密码","password").Placeholder = "请输入密码"
        End With
        With wb.AddButtonGroup("form1","btg1",False)     \'True) \'False为水平排列
            .Add("btn1", "登录", "submit")
        End With

...........
--  作者：cd_tdh
--  发布时间：2022/5/10 16:32:00
--  

找到问题了，少抄了一句，折腾一小时

        wb.AppendHTML("<script>initExWeUI();</script>")

--  作者：cd_tdh
--  发布时间：2022/5/10 17:13:00
--  

 

[此贴子已经被作者于2022/5/10 17:14:30编辑过]
--  作者：有点蓝
--  发布时间：2022/5/10 17:14:00
--  
https://www.runoob.com/cssref/pr-dim-height.html
--  作者：cd_tdh
--  发布时间：2022/5/10 17:22:00
--  
把height记错了，惭愧