http://192.168.41.3:9090/rwchakan.htm?a=张三&b=调研报告
谢谢老师 运行效果如下：
此主题相关图片如下：1.png
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddPageTitle("","ph1","事项管理","针对已经完成的事项，实现信息检索与查看！")
wb.AddForm("","form1","rwgetVimg.htm?a="& e.GetValues("a") & "b=" & e.GetValues("b"))
With wb.AddInputGroup("form1","ipg1","信息筛选")
.AddInput("待办人","待办人","text").Value = e.GetValues("a")
.AddInput("事项名称","事项名称","text").Value = e.GetValues("b")
End With
With wb.AddButtonGroup("form1","btg1",False) '垂直排列
.Add("btn1", "记录检索")
.Add("btn2", "取消检索", "submit").FormAction = "default.htm"
End With
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2021/6/10 1:42:01编辑过]
加好友 
发短信
Post By：2021/6/9 17:15:00 [显示全部帖子]
