以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  weui字段函数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190278)
--  作者：夜点蚊香
--  发布时间：2024/1/28 16:03:00
--  weui字段函数问题
下面的代码是一个完整的代码函数，
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这个函数的写法，传入值，返回值的方式。
谢谢
--  作者：有点蓝
--  发布时间：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)