以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146356)
--  作者：李孝春
--  发布时间：2020/2/21 23:32:00
--  移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？
移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？

在基础信息表中   有成员姓名   身份证号  联系电话  成员关系字段及值
如何实现在页面中，如果成员姓名框输入张三之后  对应的身份证号  联系电话 成员关系就自动从基础信息表中对应张三的值，不用用户再次输入了。

 With wb.AddInputGroup("form1","ipg121","家庭成员1信息登记")
                    .AddInput("成员姓名1","成员姓名","Text")
                    .AddSelect("成员关系1","成员关系","|配偶|儿子|女儿|父亲|母亲|爷爷|奶奶|外公|外婆|其他")
                    .AddInput("身份证号1","身份证号","text")
                    .AddInput("联系电话1","联系电话","number")
                End With
--  作者：有点蓝
--  发布时间：2020/2/22 9:01:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0103.htm
--  作者：李孝春
--  发布时间：2020/2/22 10:11:00
--  回复：（有点蓝）参考：http://www.foxtable.com/mobi...
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编辑过]
--  作者：有点蓝
--  发布时间：2020/2/22 10:30:00
--  
不要使用记事本创建和编辑js文件，会有编码问题。下载vscode、editplus、sublime等等编辑器使用
--  作者：李孝春
--  发布时间：2020/2/22 11:05:00
--  回复：（有点蓝）不要使用记事本创建和编辑js文件，会...
使用sublime编辑  依然是一样的  运行还是没有能够自动赋值  不知道是哪里写错了
--  作者：李孝春
--  发布时间：2020/2/22 11:14:00
--  回复：（有点蓝）不要使用记事本创建和编辑js文件，会...
    是不是必须按照帮助教程  下面黑色加粗部分  必须写上，由province得到county值，然后再把province、county的值传入到js 进行区号 编号的获取     
        With wb.AddInputGroup("form1","ipg1","自动输入")
            With .AddSelect("province","省市","|"+DataTables("行政区域").GetComboListString("省市"))
                .Att ribute = "oncha nge=""setAja xOptions(\'county\',\'getCounties.htm\',\'province\',false)"""
            End With
            With .AddSelect("county","县","")
                .Attribute = "onchange=\'setCodes()\'" \'调用js函数
            End With从
            .AddInput("areacode","区号","text")
            .AddInput("postcode","邮编","text")
        End With
[此贴子已经被作者于2020/2/22 11:14:50编辑过]
--  作者：有点蓝
--  发布时间：2020/2/22 11:31:00
--  
1、控件使用ID，不是名称

var result= submitAjaxFileds(\'getbanzhurenxingming.htm\',\'\',\'学校\',\'年级\',\'班级\',false);

.AddSelect("学校","*所在学校*","|瓮安五中|瓮安八中|瓮安九中")

AddSelect(ID, Label, Values)

ID输入框ID。
Label在输入框左侧显示的标签内容
2、另外已经提醒过，没有必要在函数里面在再使用这种判断，在httprequest事件判断即可，外部已经判断，里面再判断纯属多余，影响性能
Select Case e.Path
    Case "getbanzhurenxingming.htm"

3、和6楼那个没有关系，引用js文件了吗？

4、学会调试

Function getbanzhurenxingming(){
alert(\'能不能弹出\');
var result= submitAjaxFileds(\'getbanzhurenxingming.htm\',\'\',\'学校名称\',\'年级\',\'班级\',false);
alert(result); //能不能弹出
If(result){
var vals=result.split("|");
If(vals.length==1){
alert(document.getElementById("班主任姓名").); //能不能弹出
document.getElementById("班主任姓名").value=vals[0];
}
}
}


Dim dr As DataRow = DataTables("班级表").Find("学校=\'" & e.Values("学校") & "\' and 年级=\'" & e.values("年级") & "\'and 班级=\'" & e.values("班级") & "\'")
msgbox(dr IsNot Nothing)
        If dr IsNot Nothing Then
msgbox(dr("班主任姓名"))
           e.WriteString(dr("班主任姓名"))
        End If