Foxtable(狐表)用户栏目专家坐堂 → [原创]weui 问题


  共有1886人关注过本帖树形打印复制链接

主题:[原创]weui 问题

帅哥哟,离线,有人找我吗?
cool314156
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:374 积分:3277 威望:0 精华:0 注册:2018/1/12 10:54:00
[原创]weui 问题  发帖心情 Post By:2020/6/28 15:37:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 16:18:00 [只看该作者]

代码给控件赋值肯定不会触发oninput 。怎么赋值的?在什么地方赋值的,赋值后直接调用oninput指定的函数不就行了

 回到顶部
帅哥哟,离线,有人找我吗?
cool314156
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:374 积分:3277 威望:0 精华:0 注册:2018/1/12 10:54:00
  发帖心情 Post By:2020/6/28 17:21:00 [只看该作者]

谢谢

 回到顶部