专家坐堂-[原创]weui 问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [原创]weui 问题

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

\'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，但是不会改，求帮忙