请老师看看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
...........
加好友 
发短信
Post By：2022/5/10 16:06:00 [显示全部帖子]
