Dim wb As New weui
wb.AddPageTitle("","pgn1","Wybg","祝天天都有好心情")
wb.AddForm("","form1","edit.htm")
With wb.AddInputGroup("form1","项目编号","项目编号")
.AddTextArea("项目编号",2)
End With
With wb.AddInputGroup("form1","项目描述","项目描述")
.AddTextArea("项目描述",3)
End With
With wb.AddInputGroup("form1","ipg1")
.AddInput("开piao金额","开piao金额","number")
.AddInput("开piao税率","开piao税率","number")
.AddInput("fa piao抬头","fa piao抬头","text")
.AddInput("部门记账","部门记账","text")
.AddSelect("经理审批","经理审批","同意|不同意").Attribute="" '调用js函数
.AddInput("审批意见","审批意见","text")
.AddInput("审批时间","审批时间","date_time").Value = Date.Now
With .AddInput("审批进度","审批进度","text")
.Readonly = True
End With
End With
wb.AppendHTML("<script src='./lib/myfunction.js'></script>") '引入脚本文件
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
function myfunction()
{
if (经理审批.value == "同意")
{
审批进度.value ="2D";
}
else if (经理审批.value = ="不同意")
{
审批进度.value ="1C";
}
}