Dim wb As New WeUI
wb.AddForm("","form1","tbList.htm")
Dim gjs As List(of String) = DataTables("投标立项").GetValues("资质")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddSelect("资质","资质","|" & String.Join("|",gjs.ToArray)).Attribute = "" '调用js函数.
.AddSelect("区域","区域","")
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
With wb.AddButtonGroup("","btg2", False) '水平排列
.Add("btnNext","返回经营管理","","jygl.htm").kind = 2
End With
For Each gj As String In gjs
' 插入一些隐藏段落,用于存储各个资质的投标区域
wb.InsertHTML("<p hidden id='" & gj & "'>" & DataTables("投标立项").GetComboListString("区域","资质='" & gj & "'") & "</p>")
Next
wb.AppendHTML("<script src='./weui/lib/brands.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
brands.js代码
//投标立项动态列表
function tbgetBrands(){
var gj=document.getElementById("资质").value;
setOptions("区域",document.getElementById(gj).innerHTML);
}
上面代码无效,会列出所有数据,用下面的代码就能查询,但是达不到我想要的效果,请老师指教
'Dim wb As New WeUI
'wb.AddForm("","form1","tbList.htm")
'Dim gjs As List(of String) = DataTables("投标立项").GetValues("资质")
'With wb.AddInputGroup("form1","ipg1","数据筛选")
'.AddSelect("product","资质","|水利|市政|建筑")
'.AddSelect("customer","区域","|台州|临海|县内")
'.AddInput("startdate","开始日期","date")
'.AddInput("enddate","结束日期","date")
'End With
'With wb.AddButtonGroup("form1","btg1",True)
'.Add("btn1", "确定", "submit")
'End With
'With wb.AddButtonGroup("","btg2", False) '水平排列
'.Add("btnNext","返回经营管理","","jygl.htm").kind = 2
'End With
'e.WriteString(wb.Build) '生成网页