js 是否不支持中文字符（因为我表字段名是中文，所以采用了字段为中文写法）？运行后没有自动赋值
js代码
Function getbanzhurenxingming(){
var result= submitAjaxFileds('getbanzhurenxingming.htm','','学校名称','年级','班级',false);
If(result){
var vals=result.split("|");
If(vals.length==1){
document.getElementById("班主任姓名").value=vals[0];
}
}
}
Function getxuesheng(){
var result= submitAjaxFileds('getxuesheng.htm','','学校','年级','班级','学生姓名',false);
If(result){
var vals=result.split("|");
If(vals.length==3){
document.getElementById("现居住地").value=vals[0];
document.getElementById("班主任姓名").value=vals[1];
document.getElementById("居住类型").value=vals[2];
}
}
}
使用页面代码
With wb.AddInputGroup("form1","ipg1","【一】基本信息")
.AddSelect("学校","*所在学校*","|瓮安五中|瓮安八中|瓮安九中")
.AddSelect("年级","所在年级*","|一年级|二年级|三年级|四年级|五年级|六年级|七年级|八年级|九年级")
With.AddSelect("班级","*所在班级*","|1班|2班|3班|4班|5班|6班|7班|8班|9班|10班|11班|12班|13班|14班|15班")
.Attrib ute = "oncha nge='getbanzhurenxingming()'" '调用js函数
End With
.AddInput("班主任姓名","班主任名*","text")
.AddInput("学生姓名","*学生姓名*","text").Attrib ute = "oncha nge='getxuesheng()'" '调用js函数
.AddSelect("与学生关系","人员关系*","|学生本人|学生父亲|学生母亲|学生爷爷|学生奶奶|学生外婆|学生外公|学生兄妹|其它亲戚")
.AddInput("亲属姓名","*登记姓名*","text")
.AddSelect("性别","选择性别","|男|女")
.AddInput("身份证号","身份证号*","text")
.AddInput("联系电话","联系电话*","number")
.AddInput("户籍地址","户籍地址","text")
.AddInput("现居住地","现居住地*","text")
.AddS
getxuesheng.htm页面代码
Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "getxuesheng.htm"
Dim dr As DataRow = DataTables("学生信息登记").Find("学校='" & e.Values("学校") & "' and 年级='" & e.values("年级") & "'and 班级='" & e.values("班级") & "' and 学生姓名='" & e.values("学生姓名") & "'")
If dr IsNot Nothing Then
e.WriteString(dr("现居住地") & "|" & dr("班主任姓名") & "|" & dr("居住类型"))
End If
end select
getbanzhurenxinming.htm页面代码
Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "getbanzhurenxingming.htm"
Dim dr As DataRow = DataTables("班级表").Find("学校='" & e.Values("学校") & "' and 年级='" & e.values("年级") & "'and 班级='" & e.values("班级") & "'")
If dr IsNot Nothing Then
e.WriteString(dr("班主任姓名"))
End If
end select
[此贴子已经被作者于2020/2/22 10:21:24编辑过]
加好友 
发短信
Post By：2020/2/21 23:32:00 [显示全部帖子]
