Foxtable(狐表)用户栏目专家坐堂 → [求助]关于weui插件的问题


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

主题:[求助]关于weui插件的问题

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


加好友 发短信
等级:小狐 帖子:374 积分:3277 威望:0 精华:0 注册:2018/1/12 10:54:00
[求助]关于weui插件的问题  发帖心情 Post By:2020/6/17 17:27:00 [显示全部帖子]

 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 ExWeUI.WebUI.AddInputGroup("","ipg1","数据筛选")
.AddInput("bianhao","商品编号","text")

    With .AddQuerySelect("mingzi","通用名","|" & DataTables("库存").GetComboListString("通用名"))
        .Attribute = """
        .Placeholder = "请选择通用名"
    End With
    With .AddQuerySelect("guige","规格","")
        .Attribute = """
        .Placeholder = "先选择通用名再选择规格"
    End With
    .AddQuerySelect("pihao","批号").Placeholder = "先选择通用名规格再再选择批号"
    wb.InsertHTML("form1",.BuildHtml)
End With
'.AddInput("huowei","货位号","text")
'.AddInput("startdate","开始日期","date")
'.AddInput("enddate","结束时间","date")
'End With

With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) '生成网页  " 
求教下,用了插件.AddInput 这个在插件里怎么用,用老方法就出错了
[此贴子已经被作者于2020/6/17 17:29:10编辑过]

 回到顶部