Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动端表中数据计算


  共有3912人关注过本帖树形打印复制链接

主题：移动端表中数据计算
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		移动端表中数据计算  发帖心情 Post By：2020/3/8 20:55:00 [显示全部帖子]

If e.PostValues.ContainsKey("btn2")
        wb.AddPageTitle("","pageheader","期初人数填报","分班级填报人数")
        wb.AddForm("","form1","jwcqcrssbsavers.htm")
        Dim cmd1 As 
        cmd1.C">        cmd1.CommandText = "Sel* FROM {开校表册} where 学校名称 ='" & e.Cookies("userdw") & "'And 学期= '" &  e.PostValues("学期") & "' order by 班级全称"        
        Dim dt1 As DataTable = cmd1.ExecuteReader(True)
        wb.Inserthtml("form1","<Table border=1 cellspacing=0 style='width:100%;text-align:center;'><tr><td style='text-align:center;font-size: 15pt;strong'>班级全称</td><td style='text-align:center;font-size: 15pt'>男生</td><td style='text-align:center;font-size: 15pt'>女生</td><td style='text-align:center;font-size: 15pt'>人数</td></tr>")
        For Each dr As DataRow In dt1.DataRows
            wb.Inserthtml("form1","<tr style='height:20px;'><td style='width:40%;font-size:18px' >" & dr("班级全称") & "</td><td style='width:20%'><input style='width:95%;font-size: 18px; border:none;text-align:center;margin:2px;' type='number'  name='txt1_" & dr("_Identify") &  "'"  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & iif(dr("男生")>0,dr("男生"),"") & "' /></td><td style='width:20%'><input style='width:95%;font-size:18px;border:none;text-align:center;margin:2px;' type= 'number'  name='txt2_" & dr("_Identify") & "' "  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & iif(dr("女生")>0,dr("女生"),"") & "' /></td><td name='txt3_" & dr("_Identify") & "' style='width:20%;font-size:18px;' >" & iif(dr("人数")>0,dr("人数"),"") & "</td></tr>")
        Next
        With wb.AddButtonGroup("form1","btg1",False)
            Dim btn3=.Add("btn3", "确定人数", "submit")
            btn3.value="btn3"
            btn3.kind=1
        End With
    End If


老师，请问老师，我想在txt1中输入数据和txt2中输入数据，让text3的数据为前两者的和，请问这个js怎么写，研究了下例子还是写不对，请老师帮写一下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/3/8 21:58:00 [显示全部帖子]

老师，因为涉及到有可能有几十行，又不方便一个一个的去填，想到这相用_identify来取Id名称，

function calc(){
    je.value = dj.value * sl.value * (1 - zk.value);
}


这个我想请教如何取出当前的ID值？如在ID为txt1_234的输入框时，就取得其ID，再分出234来组合出txt3_234.value = text1_234.value+text2_234.value 
[此贴子已经被作者于2020/3/8 21:59:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/3/8 23:02:00 [显示全部帖子]

  wb.InsertHTML("<script language='javascript'>function loadmusic(o){ var s = o.id;var num= s.replace(/[^0-9]/ig,'');var rs = 'txt3_' + num; alert(rs.value);}</script>")
老师，我看了下取出能组织合成id，但如何取这个rs的ＩＤ的值呢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/3/9 7:57:00 [显示全部帖子]

  If e.PostValues.ContainsKey("btn2")
       wb.AddPageTitle("","pageheader","期初人数填报","分班级填报人数")
    wb.AddForm("","form1","jwcqcrssbsavers.htm")
  
    cmd1.CommandText = "Sel* FROM {开校表册} where 学校名称 ='" & e.Cookies("userdw") & "'And 学期= '" &  e.PostValues("学期") & "' order by 班级全称"
    Dim dt1 As DataTable = cmd1.ExecuteReader(True)
    wb.Inserthtml("form1","<Table border=1 cellspacing=0 style='width:100%;text-align:center;'><tr><td style='text-align:center;font-size: 15pt;strong'>班级全称</td><td style='text-align:center;font-size: 15pt'>男生</td><td style='text-align:center;font-size: 15pt'>女生</td><td style='text-align:center;font-size: 15pt'>人数</td></tr>")
    For Each dr As DataRow In dt1.DataRows
    wb.Inserthtml("form1","<tr style='height:20px;'><td style='width:40%;font-size:18px' >" & dr("班级全称") & "</td><td style='width:20%'><input style='width:95%;font-size: 18px; border:none;text-align:center;margin:2px;'     type='number' id='txt1_" & dr("_Identify") &  "' name='txt1_" & dr("_Identify") &  "'"  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & iif(dr("男生")>0,dr("男生"),"") & "' /></td><td style='width:20%'><input style='width:95%;font-size:18px;border:none;text-align:center;margin:2px;' type= 'number' id='txt2_" & dr("_Identify") & "'  name='txt2_" & dr("_Identify") & "' "  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & iif(dr("女生")>0,dr("女生"),"") & "' /></td><td id='txt3_" & dr("_Identify") & "'type= 'number'  id='txt3_" & dr("_Identify") & "'  name='txt3_" & dr("_Identify") & "' style='width:20%;font-size:18px;' >" & iif(dr("人数")>0,dr("人数"),"") & "</td></tr>")
    Next
    With wb.AddButtonGroup("form1","btg1",False)
    Dim btn3=.Add("btn3", "确定人数", "submit")
    btn3.value="btn3"
    btn3.kind=1
    End With
    End If    
   wb.InsertHTML("<script language='javascript'>function calc(id){var xuhao = id.split('_')[1]; alert(document.getElementById('txt1_' + xuhao).value + document.getElementById('txt2_'+ xuhao).value); }</script>")   

  End If

请问老师，上面取出来是字符串合并结果呢，而不是数据和呢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/3/9 11:30:00 [显示全部帖子]

老师，我知道可转，我的问题是type='namber'  为何不能加

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/3/9 11:40:00 [显示全部帖子]

 If e.PostValues.ContainsKey("btn2")
       wb.AddPageTitle("","pageheader","期初人数填报","分班级填报人数")
    wb.AddForm("","form1","jwcqcrssbsavers.htm")
    Dim cmd1 As ne
    cmd1.C">    cmd1.CommandText = "Sel* FROM {开校表册} where 学校名称 ='" & e.Cookies("userdw") & "'And 学期= '" &  e.PostValues("学期") & "' order by 班级全称"
    Dim dt1 As DataTable = cmd1.ExecuteReader(True)
    wb.Inserthtml("form1","<Table border=1 cellspacing=0 style='width:100%;text-align:center;'><tr><td style='text-align:center;font-size: 15pt;strong'>班级全称</td><td style='text-align:center;font-size: 15pt'>男生</td><td style='text-align:center;font-size: 15pt'>女生</td><td style='text-align:center;font-size: 15pt'>人数</td></tr>")
    For Each dr As DataRow In dt1.DataRows
    wb.Inserthtml("form1","<tr style='height:20px;'><td style='width:40%;font-size:18px' >" & dr("班级全称") & "</td><td style='width:20%'><input style='width:95%;font-size: 18px; border:none;text-align:center;margin:2px;'     type='number' id='txt1_" & dr("_Identify") &  "' name='txt1_" & dr("_Identify") &  "'"  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & dr("男生") & "' /></td><td style='width:20%'><input style='width:95%;font-size:18px;border:none;text-align:center;margin:2px;' type= 'number' id='txt2_" & dr("_Identify") & "'  name='txt2_" & dr("_Identify") & "' "  & iif(dr("_locked")=True,"readonly","") & " min ='0' value='" & dr("女生") & "' /></td><td type= 'number'  id='txt3_" & dr("_Identify") & "'  name='txt3_" & dr("_Identify") & "' style='width:20%;font-size:18px;' >" & dr("人数") & "</td></tr>")
    Next

找到问题了，

    With wb.AddButtonGroup("form1","btg1",False)
    Dim btn3=.Add("btn3", "确定人数", "submit")
    btn3.value="btn3"
    btn3.kind=1
    End With
    End If    
   wb.InsertHTML("<script language='javascript'>function calc(id){var xuhao = id.split('_')[1]; document.getElementById('txt3_' + xuhao).value = parseInt(document.getElementById('txt1_' + xuhao).value) + parseInt(document.getElementById('txt2_'+ xuhao).value); }</script>")   
  End If
老师，请问用alert可以显示出两个数的和，将他附给txt3_，txt3不变呢
[此贴子已经被作者于2020/3/9 11:45:57编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询