Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","tongji.htm")
With wb.AddInputGroup("form1","ipg1","销售统计")
With .AddInputCell("姓名") '通过InputCell增加输入框
.AddLabel("姓名","姓名",0) '增加标签,0显示在左边
.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"
.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数
End With
.AddInput("姓名","姓名","Text").Attribute = "
.AddInput("需求审核人","姓名","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "统计", "button").Attribute= ""
.Add("btn11", "统计1", "button").Attribute= ""
End With
With wb.AddDialog("","dlg2", "请选择","")
.AddButton("btnOK","确定")
.AddButton("btnOK11","确定").Attribute=""
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面
wb.AppendHTML("<script src='./lib/tj3.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Case "tongji.htm"
Dim wb As New weui
Dim wb2 As New weui
Dim lk As String = Nothing
Dim txt As String = e.PostValues("姓名")
txt = "'%" & txt & "%'"
Dim gjs11 As List(of String) = DataTables("员工资料").SQLGetValues("姓名","openid <> '" & lk & "'and 姓名 like " & txt )
Dim ary11 As String= String.Join("|",gjs11.ToArray)
Dim ary12() As String
ary12 = ary11.split("|")
wb2.InsertHTML("form1","<div id='div1' style='overflow-y:auto;height:300px'>")
With wb2.AddCheckGroup("","rdg12","浏览器")
For i As Integer = 0 To ary12.length-1
.Add("bm1" & i, ary12(i)).Attribute = ""
Next
End With
wb2.InsertHTML("form1","</div>")
wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '返回增加成功消息
js1
function tongji2(){
var result = submitAjaxForm('form1','',false);
//document.getElementById("p1").innerHTML=result;
showDialog('dlg2','请选择',result)
}
加好友 
发短信
Post By：2020/10/7 13:50:00 [显示全部帖子]
