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编辑过]
加好友 
发短信
Post By：2020/6/18 9:51:00 [只看该作者]
此主题相关图片如下：插件问题.png
此主题相关图片如下：手机.jpg