Dim e As RequestEventArgs = args(0)
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","kucun.htm")
With ExWeUI.WebUI.AddInputGroup("","ipg1","数据筛选")
.AddInput("bianhao","商品编号","text")
With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
.Attribute = """
.Placeholder = "请选择通用名"
End With
With .AddQuerySelect("guige","规格","")
.Attribute = """
.Placeholder = "先选择通用名再选择规格"
End With
.AddQuerySelect("pihao","批号").Placeholder = "先选择通用名规格再再选择批号"
wb.InsertHTML("form1",.BuildHtml)
End With
'.AddInput("huowei","货位号","text")
'.AddInput("startdate","开始日期","date")
'.AddInput("enddate","结束时间","date")
'End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) '生成网页 "
求教下,用了插件.AddInput 这个在插件里怎么用,用老方法就出错了
[此贴子已经被作者于2020/6/17 17:29:10编辑过]