判断有没有输入或者选择值。
Case "bb.htm" '首页
wb.AddTopTips("","toptip1","课室/时间 不能为空!") '用于显示动态错误提示
wb.AddPageTitle("","ka","数据","***")
wb.AddForm("","form1","x10124_Result.htm").Attribute="o n s u b mit = 'return getkeshi()'" '使用js脚本文件,判断是否按要求输入数据
With wb.AddInputGroup("form1","ipg1","数据查询")
With .AddSelect("group","课室","|" & DataTables("Users").GetComboListString("课室2","部门 = '业务处' and 课室2 = '"& ks2 &"'","课室2 Desc"))
.Attribute = """
End With
.AddSelect("name","姓名","")
.AddInput("startdate","开始时间","date").Value = Format(Date.Today,"yyyy-MM-dd")
.AddInput("enddate","结束时间","date").Value = Format(Date.Today,"yyyy-MM-dd")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End If
e.WriteString(wb.Build)
function getkeshi(){
var v1 = document.getElementById("group").value;
var v2 = document.getElementById("startdate").value;
var v3 = document.getElementById("enddate").value;
if (v1 && v2 && v3){return true}
show("toptip1",2500); //2500毫秒=2.5秒
return false;
}
[此贴子已经被作者于2017/6/10 11:35:52编辑过]
加好友 
发短信
Post By：2017/6/10 11:08:00 [只看该作者]
