Dim e As RequestEventArgs = args(0)
Dim path As String = "jinxiaocunapp"
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.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
wb.AddForm("","form1","kucun.htm")
With wb.AddInputGroup("form1","ipg6","库存查询")
With .AddInputCell("ic2")
.AddLabel("spbh","商品编号",0)
.AddInput("bianhao","text",1).A ttri bute = ""
.AddVcodeButton("scanl","扫码输入",2).A tt ribute = " & path & "/plus/barcode_scan.html',true,true);""" '增加二维码扫描按钮,2表示显示在右边
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('bianhao').value=r ;}</script>")
End With
'With .AddInputCell("ic3")
'.AddLabel("lbh","货位号",0)
'.AddInput("huowei","text",1)
''.AddVcodeButton("scan","扫码输入",2).A ttr ibute = " & path & "/plus/barcode_scan.html',true,true);""" '增加二维码扫描按钮,2表示显示在右边
'End With
.AddInput("mingzi","通用名","text")
.AddInput("guige","规格","")
With .AddSelect("pihao","批号","")
.At trib ute = """
End With
End With
'With ExWeUI.WebUI.AddInputGroup("","ipg1")
''.AddInput("bianhao","商品编号","text")
'With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
'.Attribute = """
'.Placeholder = "请选择通用名"
''.Value = dr("通用名")
'End With
'With .AddQuerySelect("guige","规格","")
'.Attribute = """
'.Placeholder = "先选择通用名再选择规格"
''.Value = dr("规格")
'End With
'.AddQuerySelect("pihao","批号").Placeholder = "先选择通用名规格再再选择批号"
'wb.InsertHTML("form1",.BuildHtml)
'End With
'
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btnhui", "返回首页", "button","default.htm") '返回首页
End With
wb.AppendHTML("<script>initExWeUI();</script>")
'wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('bianhao').value=r ;}</script>")
wb.AppendHTML("<script src='./lib/ajaxFileds.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页 "
求教下,这段代码,我手工输入商品编号,能出发.AddInput("bianhao","text",1).A ttri bute = "oninput 这个事件,但是改成扫码输入之后就不能触发事件了,是不是要改js,但是不会改,求帮忙