--
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 wb.AddInputGroup("form1","ipg6","库存查询")
.AddInput("bianhao","商品编号","text")
.AddInput("huowei","货位号","text")
End With
With ExWeUI.WebUI.AddInputGroup("","ipg1")
\'.AddInput("bianhao","商品编号","text")
With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
.At tri bute = """
.Placeholder = "请选择通用名"
End With
With .AddQuerySelect("guige","规格","")
.Att ri bute = """
.Placeholder = "先选择通用名再选择规格"
End With
.AddQuerySelect("pihao","批号").Placeholder = "先选择通用名规格再再选择批号"
wb.InsertHTML("form1",.BuildHtml)
End With
\'.AddInput("huowei","货位号","text")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) \'生成网页 "
Dim e As RequestEventArgs = args(0)
\'Dim wb As New weui
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("库存").GetComboListString("规格","通用名=\'" & e.PostValues("mingzi") & "\'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "通用名=\'" & e.PostValues("mingzi") & "\' And 规格=\'" & e.PostValues("guige") & "\'"
vals = "|" & DataTables("库存").GetComboListString("批号", Filter)
End If
\'MessageBox.Show(Filter)
MessageBox.Show(vals)
e.WriteString(vals)
这个是相关的代码
[此贴子已经被作者于2020/6/18 9:56:10编辑过]