下面的代码是一个完整的代码函数，
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这个函数的写法，传入值，返回值的方式。
谢谢
加好友 
发短信
Post By：2024/1/28 16:03:00 [只看该作者]
