- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]weui列表框清空 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159241)
-- 发布时间：2020/12/18 14:23:00
-- [求助]weui列表框清空
此主题相关图片如下：1.png
此主题相关图片如下：2.png
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim Page As Integer
If e.GetValues.ContainsKey("page") Then
Integer.TryParse(e.GetValues("page"), page)
End If
wb.AddForm("","form1","list.htm?page=0")
With wb.AddInputGroup("form1","ipg0","快速数据筛选")
With .AddInput("合同号1","合同号1","text")
.Attribute = """
End With
\'.AddInput("客户","客户","text")
With .AddInput("款号1","款号1","text")
.Attribute = """
End With
\'.AddInput("开始日期","开始日期","date")
\' .AddInput("结束日期","结束日期","date")
End With
With wb.AddInputGroup("form1","ipg1","只填 合同号 或 款号")
With .AddSelect("合同号","合同号","")
.Attribute = ""
End With
With .AddSelect("款号","款号","")
.Attribute = ""
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "筛选", "submit")
.Add("btn1", "返回", "button","list.htm?page=" & Page) \'返回原页面
End With
wb.AppendHTML("<script src=\'./lib/order.js\'></script>")
e.WriteString(wb.Build())
********************************************
order.js
function clearhth() {
document.getElementById("合同号").value = ""
}
function clearkh() {
document.getElementById("款号").value = ""
}
[此贴子已经被作者于2020/12/18 14:26:46编辑过]
-- 发布时间：2020/12/18 14:34:00
--
document.getElementById("款号").options.length = 0;
-- 发布时间：2020/12/18 15:15:00
--
结果是一样不行
-- 发布时间：2020/12/18 15:21:00
--
https://blog.csdn.net/nuptsv_ice/article/details/9088183
-- 发布时间：2020/12/18 15:31:00
--
此主题相关图片如下：3.png
-- 发布时间：2020/12/18 15:36:00
--
document.getElementById("款号").innerHTML = "";我测试没有问题
-- 发布时间：2020/12/18 17:06:00
--
麻烦你发一个测试例子出来,我还是不成功
-- 发布时间：2020/12/18 17:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:clselect.zip |
-- 发布时间：2020/12/18 17:21:00
--
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","列表项目")
.AddSelect("os","操作系统","iOS|Windows|Andriod")
.AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet Explorer")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button")
End With
wb.InsertHTML("<script >document.getElementById(""bw"").innerHTML = """";</script>")
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2020/12/18 17:26:00
--
成功了,我看下那里出问题了,谢谢
[此贴子已经被作者于2020/12/18 17:31:44编辑过]