移动端表中数据计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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>")

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怎么写，研究了下例子还是写不对，请老师帮写一下，谢谢

控件id尽量固定，不要使用变量设置。否则js很难取得需要的控件进行处理

老师，因为涉及到有可能有几十行，又不方便一个一个的去填，想到这相用_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编辑过]

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的ＩＤ的值呢

绑定js函数的时候传入id，如

sb.appendLine("单价: <input Type='number' name='txt1_234' id='txt1_234' >")

function calc(id){
var xuhao = id.split("_")[1];

document.getElementById("txt3_" + xuhao).value = document.getElementById(id).value + document.getElementById("txt2_" + xuhao).value

}

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)

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>")

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

请问老师，上面取出来是字符串合并结果呢，而不是数据和呢

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

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)

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>")

找到问题了，

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编辑过]

主题：移动端表中数据计算