专家坐堂-移动开发，选择不同值以后，禁止相应输入Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  移动开发，选择不同值以后，禁止相应输入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154088)

--  作者：playmal
--  发布时间：2020/9/3 11:02:00
--  移动开发，选择不同值以后，禁止相应输入

function choose(){
var gj=document.getElementById("形状").value;
if(gj=="圆形")
{
alert("提示信息！");
document.getElementById("长mm").value = 0;
document.getElementById("宽mm").value = 0;
document.getELementById("长mm").disabled=true;
document.getELementById("宽mm").disabled=true;}
else
{alert("提示");
document.getElementById("直径mm").value = 0;
document.getELementById("直径mm").setAttribute("disabled", true);}
}

.AddSelect("形状","形状","圆形|矩形").Attribute = ""
.AddInput("直径mm","直径mm","number").value = 300
.AddInput("长mm","长mm","number").value = 0
.AddInput("宽mm","宽mm","number").value = 0

--  作者：playmal
--  发布时间：2020/9/3 11:03:00
--

这样的语句对吗，对 .AddSelect("形状","形状","圆形|矩形").Attribute = "onchange=“”choose()“”" 应该没有问题吧

[此贴子已经被作者于2020/9/3 11:06:03编辑过]

--  作者：playmal
--  发布时间：2020/9/3 11:15:00
--
现在的问题是，addinput无法变灰，也就是互斥的效果无法实现。

--  作者：有点蓝
--  发布时间：2020/9/3 11:26:00
--
引用js文件了吗？

js里alert能不能弹出提示框？

--  作者：playmal
--  发布时间：2020/9/3 11:56:00
--
可以

--  作者：有点蓝
--  发布时间：2020/9/3 14:09:00
--
做个例子发过来测试一下

--  作者：playmal
--  发布时间：2020/9/3 20:33:00
--
上面就是例子啊

--  作者：playmal
--  发布时间：2020/9/3 20:34:00
--
两部分嘛，一部分是js代码，一部分是调用，怎么还看不懂了？

--  作者：有点蓝
--  发布时间：2020/9/3 20:41:00
--
代码了看不出问题。上传可以测试的实例

--  作者：playmal
--  发布时间：2020/9/3 21:16:00
--

比如

Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
  .AddSelect("形状","形状","圆形|矩形").Attribute = "onchange=“”choose()“”"
.AddInput("直径mm","直径mm","number").value = 300
.AddInput("长mm","长mm","number").value = 0
.AddInput("宽mm","宽mm","number").value = 0
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src=\'./test.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
End Select

test.js文件
function choose(){
var gj=document.getElementById("形状").value;
if(gj=="圆形")
{
alert("提示信息！");
document.getElementById("长mm").value = 0;
document.getElementById("宽mm").value = 0;
document.getELementById("长mm").disabled=true;
document.getELementById("宽mm").disabled=true;}
else
{alert("提示");
document.getElementById("直径mm").value = 0;
document.getELementById("直径mm").disabled=true;}
}