以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- js (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133857) |
|
-- 作者:qinjh18935180888 -- 发布时间:2019/4/22 11:29:00 -- js
|
|
-- 作者:有点甜 -- 发布时间:2019/4/22 12:20:00 -- 浏览器调试那里,报什么错?
http://www.foxtable.com/mobilehelp/scr/0244.htm
|
|
-- 作者:qinjh18935180888 -- 发布时间:2019/4/22 13:10:00 -- 不报错,但得不到我想要的效果,我写的代码有问题吗? |
|
-- 作者:有点甜 -- 发布时间:2019/4/22 14:56:00 -- 以下是引用qinjh18935180888在2019/4/22 13:10:00的发言:
不报错,但得不到我想要的效果,我写的代码有问题吗?
做个例子发上来测试。 |
|
-- 作者:qinjh18935180888 -- 发布时间:2019/4/22 15:24:00 -- Dim wb As New weui wb.AddPageTitle("","pgn1","Wybg","祝天天都有好心情") wb.AddForm("","form1","edit.htm") With wb.AddInputGroup("form1","项目编号","项目编号") .AddTextArea("项目编号",2) End With With wb.AddInputGroup("form1","项目描述","项目描述") .AddTextArea("项目描述",3) End With With wb.AddInputGroup("form1","ipg1") .AddInput("开票金额","开票金额","number") .AddInput("开票税率","开票税率","number") .AddInput("发票抬头","发票抬头","text") .AddInput("部门记账","部门记账","text") .AddSelect("经理审批","经理审批","同意|不同意").Attribute="" \'调用js函数 .AddInput("审批意见","审批意见","text") .AddInput("审批时间","审批时间","date_time").Value = Date.Now With .AddInput("审批进度","审批进度","text") .Readonly = True End With End With wb.AppendHTML("<script src=\'./lib/myfunction.js\'></script>") \'引入脚本文件 With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With function myfunction()
{ if (经理审批.value == "同意") { 审批进度.value ="2D"; } else if (经理审批.value = ="不同意") { 审批进度.value ="1C"; } } |
|
-- 作者:有点甜 -- 发布时间:2019/4/22 15:29:00 -- 我测试没问题,js改成
function myfunction() |
|
-- 作者:qinjh18935180888 -- 发布时间:2019/4/22 16:20:00 -- 我测试不行呀,当“经理审批”变化时,“审批进度”不能自动变化呀。 |
|
-- 作者:qinjh18935180888 -- 发布时间:2019/4/22 16:24:00 -- 好了,甜版。 |