一、主程序调用语句段：
'------插入扫描码语句开始
With .AddInputCell("ic01")
.AddLabel("lbh01", "条码:", 0)
.AddInput("lcode", "text", 1)
.AddVcodeButton("item_scan", "扫码", 2).Attribute = "onclick=""clicked('" & path & "/plus/barcode_scan.html',true,true);"""
End With
End With
'------插入扫描码语句结束
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.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('lcode').value=r;sendAjaxText(r,"CreateScan.htm","",false);}</script>")
二、不需要第二段代码
三、被调用网页的函数语句
'--这个被调用的CreateScan扫码函数完全不知道应该怎么组合语句了
Dim e As RequestEventArgs = args(0)
dim r as row = tables("表A").addnew
r("条码") =e.PlainText
e.WriteString("OK")
加好友 
发短信
Post By：2022/9/13 8:51:00 [显示全部帖子]
