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 这个在插件里怎么用，用老方法就出错了