Dim wb As New weui
Dim e As RequestEventArgs = args(0)
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","zhuti.htm")
With wb.AddInputGroup("form1","ipg1","工程信息")
With .Addinput("工程代号","工程代号","") '前一个"工程代号"是ID,后一个"工程代号"是标题
.Attribute = "onchange='setCodes()'" '调用js函数
End With
.AddInput("工程名称","工程名称","Text")
.AddInput("委托单位","委托单位","Text")
.AddInput("建设单位","建设单位","Text")
.AddInput("施工单位","施工单位","Text")
.AddInput("设计单位","设计单位","Text")
.AddInput("监理单位","监理单位","Text")
.AddInput("见证单位","见证单位","Text")
.AddInput("见证人","见证人","Text")
.AddInput("结构实体混凝土生产企业","混凝土生产企业","Text")
.AddSelect("结构实体混凝土输送方式","混凝土输送方式","泵送|其他")
.AddInput("施工现场联系人","施工现场联系人","Text")
.AddInput("联系电话","联系电话","number")
End With
With wb.AddInputGroup("form1","ipg2","检测信息")
.AddSelect("检测原因","检测原因","结构实体抽测|冬期施工|试块评定不合格|监督抽检|其 他 ") '前一个"工程代号"是ID,后一个"工程代号"是标题
.AddInput("检测部位","检测部位","Text")
.AddInput("检测数量","检测数量","Text")
.AddSelect("检验类别","检验类别","见证检验|委托检验|其他")
.AddSelect("检测项目","检测项目","回弹法检测混凝土抗压强度|其他")
.AddInput("检测依据","检测依据","Text")
.AddInput("检测备注","备注","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
加好友 
发短信
Post By：2020/9/3 8:35:00 [只看该作者]
此主题相关图片如下：qq图片20200907151402.png