Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:weui字段函数问题

1楼
夜点蚊香 发表于:2024/1/28 16:03:00
下面的代码是一个完整的代码函数,
Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
            .AddSelect("水平分组","水平分组","产品|客户|雇员")
            .AddSelect("垂直分组","垂直分组","产品|[客户]|雇员")
            .AddSelect("统计列","统计列","数量|金额")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "统计", "button").Attribute= ""
        End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)

问题,做一个函数  name1
里面的内容是 蓝色部分的内容
然后通过函数实现完整代码

Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
Functions.Execute("name1")
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "统计", "button").Attribute= ""
        End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
求助,name1这个函数的写法,传入值,返回值的方式。
谢谢
2楼
有点蓝 发表于:2024/1/28 19:57:00
函数

Dim wb As weui = args(0)
        With wb.AddInputGroup("form1","ipg1","销售统计")
            .AddSelect("水平分组","水平分组","产品|客户|雇员")
            .AddSelect("垂直分组","垂直分组","产品|[客户]|雇员")
            .AddSelect("统计列","统计列","数量|金额")
        End With

调用函数
Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
Functions.Execute("name1", wb )
        With wb.AddButtonGroup("form1","btg1",True)
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 2 queries.