If e.PostValues.Count = 0 Then
With wb.AddInputGroup("form1","ipg1")
With .AddSelect("xd","学段选择:","|" & dt.GetComboListString("学段"))
.Attribute = """
End With
With .AddSelect("ksmc","考试名称:","")
.Attribute = """
End With
With .AddSelect("xxmc","学校名称:","")
.Attribute = """
End With
.AddSelect("bjqc","班级全称:","")
.AddSwitch("px","是否排序:",True)
.AddSwitch("zh","是否折合:",True)
End With
With wb.AddButtonGroup("form1","btg1",False)
Dim bt1= .Add("btn1", "明细")', "submit")
bt1.Attribute= ""
'bt1.Attribute = "onclick=javascript:mui.toast('正在为您统计并打开,请等待一下');"
bt1.kind=1
Dim bt2= .Add("btn2", "统计", "button","xscjtj.htm")
bt2.Attribute = " onclick=javascript:mui.toast('正在进入汇总统计选项设置,请等待一下');"
bt2.kind=1
End With
wb.AppendHTML("<script src='./lib/brands.js'></script>",True) '引入脚本文件
加好友 
发短信
Post By：2020/10/18 21:36:00 [只看该作者]
