- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- JS问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159722)
-- 发布时间：2021/1/6 9:34:00
-- JS问题
定义了个js 如下，包含中文
function markCalc(){
合计.value=作风建设.value + 廉洁从业.value + 工作谋划.value+推动执行.value+沟通协调.value+开拓创新.value+团队建设.value+学习成长.value+专业能力.value+个人贡献.value;
}
JS调用 语句
wb.AppendHTML("<script charset=\'utf-8\' src=\'./lib/calc.js\'></script>")
在web目录下创建了 lib文件 并把上面的js 放在lib目录下
计算时语法
With.AddInput("推动执行","四,推动执行","number")
.Step="0.1"
.min = "1"
. Max = "10"
. Placeholder = "评分在1-10之间"
.Attribute =""
End With
目前程序合计数出不来
想着应该是js中的中文问题，想修改成英文状态，但还涉及到列是否为空的判断，我就不知道怎么弄了
Dim nms() As String = {"评价关系","作风建设","廉洁从业","工作谋划","推动执行","沟通协调","开拓创新","团队建设","学习成长","专业能力","个人贡献"} \'不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" \' \'必须返回
End If
Next
换成英文 这里的提示 用户看不懂了，这里怎么处理下好呢
-- 发布时间：2021/1/6 9:49:00
--
Dim nms() As String = {"英文名1","name2","name3","name4","............."}
Dim nms2() As String = {"评价关系","作风建设","廉洁从业","工作谋划","推动执行","沟通协调","开拓创新","团队建设","学习成长","专业能力","个人贡献"}
For i as integer = 0 to nms.length - 1
If e.PostValues.ContainsKey(nms(i)) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nms2(i) & "列不能为空!")
.icon = "Warn" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
-- 发布时间：2021/1/6 10:10:00
--
合计 还是不计算
感谢 按照上面的修改后，提示，保存都没问题 
此主题相关图片如下：微信截图_20210106104953.png
这样写有问题吗
function markCalc(){
hj.value=zfjs.value + ljcy.value + gzmh.value+tdzx.value+gtxt.value+ktcx.value+tdjs.value+xxcz.value+zyjn.value+grgx.value;
}
事件不调用
[此贴子已经被作者于2021/1/6 11:41:33编辑过]
-- 发布时间：2021/1/6 11:53:00
--
是不是不可以这样写啊
With.AddInput("zfjs","一,作风建设", "number") \'.Attribute = "step=\'0.1\' min=\'1.0\' max=\'10.0\' "
.Step="0.1"
.min = "1"
. Max = "10"
. Placeholder = "评分在1-10之间"
.Attribute =‘’
End With
写成这样
.AddInput("dj","单价","number").Attribute = "step=\'0.1\'
"
\'事件调用
不能约束 最大最小值
-- 发布时间：2021/1/6 11:57:00
--
function markCalc(){
alert(zfjs.value);
alert(zfjs.value + ljcy.value);
alert(zfjs.value + ljcy.value + gzmh.value);
hj.value=zfjs.value + ljcy.value + gzmh.value+tdzx.value+gtxt.value+ktcx.value+tdjs.value+xxcz.value+zyjn.value+grgx.value;
}
-- 发布时间：2021/1/6 13:21:00
--
function markCalc(){
//alert(zfjs.value);
//alert(parseFloat(zfjs.value) + parseFloat(ljcy.value));
//alert(zfjs.value + ljcy.value + gzmh.value);
alert(parseFloat(zfjs.value) + parseFloat(ljcy.value)) ;
zf.value=parseFloat(zfjs.value) + parseFloat(ljcy.value) + parseFloat(gzmh.value)+parseFloat(tdzx.value)+parseFloat(gtxt.value)+parseFloat(ktcx.value)+parseFloat(tdjs.value)+parseFloat(xxcz.value)+parseFloat(zyjn.value)+parseFloat(grgx.value);
}
我这样调整了下，alert 有值 就是 页面上总分不显示
下面是代码文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:111.txt |
-- 发布时间：2021/1/6 13:48:00
--
function markCalc(){
//alert(zfjs.value);
//alert(parseFloat(zfjs.value) + parseFloat(ljcy.value));
//alert(zfjs.value + ljcy.value + gzmh.value);
alert(parseFloat(zfjs.value) + parseFloat(ljcy.value)) ;
var va = parseFloat(zfjs.value) + parseFloat(ljcy.value) + parseFloat(gzmh.value)+parseFloat(tdzx.value)+parseFloat(gtxt.value)+parseFloat(ktcx.value)+parseFloat(tdjs.value)+parseFloat(xxcz.value)+parseFloat(zyjn.value)+parseFloat(grgx.value);
alert(va);
alert(zf);
zf.value=va
alert(zf.value);
}
-- 发布时间：2021/1/6 13:57:00
--
此主题相关图片如下：微信图片_20210106135549.jpg
输入第一个 后 提示 NaN, 继续输入 提示的是数值和，总分项还是没有数值
alert(va);
alert(zf);
zf.value=va
alert(zf.value); 这些没执行
[此贴子已经被作者于2021/1/6 14:02:27编辑过]
-- 发布时间：2021/1/6 14:13:00
--
那就多做几步
var va = 0;
if(zfjs.value) va=va+parseFloat(zfjs.value);
if(ljcy.value) va=va+parseFloat(ljcy.value);
……
alert(va);
[此贴子已经被作者于2021/1/6 14:12:58编辑过]