函数
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)