没有弹窗,没有反应
Case "sjlr.htm"
Dim wb As New WeUI
wb.AddForm("","form1","sjlr.htm")
wb.AppendHTML("<link rel='stylesheet' href='./lib/textjs.css'/>",True) '引入样式文件,参数True表示添加到head区
With wb.AddInputGroup("form1","ipg1","新增出勤数据")
.AddInput("rq","日期","date")
.AddSelect("cp","车牌号","PD01|PD02|PD03|PD04|PD05")
.AddInput("gy","雇员","text")
End With
With wb.AddInputGroup("form1","ipg2","上午出勤")
.AddInput("rqswks","上午开始时间","time").Attribute="on change='markCalc1()'"
.AddInput("rqswjs","上午结束时间","time").Attribute="on change='markCalc1()'"
.AddInput("swsj"," 上午时长","number")
End With
With wb.AddInputGroup("form1","ipg3","下午出勤")
.AddInput("rqxwks","下午开始时间","time").Attribute="on change='markCalc2()'"
.AddInput("rqxwjs","下午结束时间","time").Attribute="on change='markCalc2()'"
.AddInput("xwsj","下午时长","number")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","确定")
End With
e.WriteString(wb.Build) '生成网页
==================================
css文件
function markCalc1(){
var swkssj = document.getElementById("rqswks").value;
var swjssj = document.getElementById("rqswjs").value;
var tt1=(swjssj - swkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("swsj").value = tt1
}
function markCalc2(){
var xwkssj = document.getElementById("rqxwks").value;
var xwjssj = document.getElementById("rqxwjs").value;
var tt2=(xwjssj - xwkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("xwsj").value = tt2
}
[此贴子已经被作者于2021/8/26 21:08:00编辑过]