简单问题,在线等...-CSDN论坛

⋅textarea 的value属性 ⋅求分类排序的SQL语句 ⋅简单问题,在线等... 更多帖子 关注私信空间博客 wfylg 本版专家分：383 结帖率 100%: <html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<script language="vbscript">
function dosave
if frmxx.R1.value="0" then
msgbox "安装单!",vbInformation,"提示"
end if
frmxx.action="gd_edit_save.asp"
frmxx.submit
end function
</script>
<body>
<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

</body>

</html>
我想得到的是当选择安装送货单,保存时系统会提示,但运行时出现frmxx.r1.value 对象不支持此属性或方法
请大家帮忙看下如何操作/

0 2007-05-10 09:58:34

回复数 14 只看楼主引用举报楼主

wfylg 本版专家分：383: 自己先顶下..

0 2007-05-10 10:05:45

只看TA 引用举报 #1 得分 0

⋅如何判断网页中的资源下载是否成功？ 更多帖子 关注私信空间博客 chuckcoin 本版专家分：3467: 给需要判断的radio加个id
<input type="radio" value="0" name="R1" id="xxx">安装送货
然后判断它是否checked

0 2007-05-10 10:07:29

只看TA 引用举报 #2 得分 0

⋅升星星了……惯例散分 ⋅散分~恩，就是散分~ ⋅php区怎么了？谁知道？ 更多帖子 关注私信空间博客 li1229363 本版专家分：6340: 不使用vb客户端脚本，都使用的是javaxcript脚本

你应该在input上添加一个changge或者chick，方法是以函数，写法和你写的类似就OK了

0 2007-05-10 10:08:11

只看TA 引用举报 #3 得分 0

⋅升星星了……惯例散分 ⋅散分~恩，就是散分~ ⋅php区怎么了？谁知道？ 更多帖子 关注私信空间博客 li1229363 本版专家分：6340: chuckcoin的方法也是对的

0 2007-05-10 10:08:43

只看TA 引用举报 #4 得分 0

wfylg 本版专家分：383: 请问chuckcoin(啥都不懂呀) 怎么知道是否被选中?

0 2007-05-10 10:22:25

只看TA 引用举报 #5 得分 0

⋅点击DataGrid中的ImageButton按钮弹出窗口问题 ⋅如何给Substring赋值？ ⋅如何安装C++ builder中的ImageEx、ImagePanel等组件包？ 更多帖子 关注私信空间博客 wangwm 本版专家分：15535 红花 2007年5月 Web 开发大版内专家分月排行榜第一 黄花 2005年6月 Web 开发大版内专家分月排行榜第二 2007年4月 Web 开发大版内专家分月排行榜第二: <html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<script language="vbscript">
Sub dosave
For Each rs In frmxx.R1
if rs.value="0" then
msgbox "安装单!",vbInformation,"提示"
Exit Sub
Exit For
end if
next
frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>
<body>
<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

</body>

</html>

0 2007-05-10 10:28:55

只看TA 引用举报 #6 得分 0

⋅textarea 的value属性 ⋅求分类排序的SQL语句 ⋅简单问题,在线等... 更多帖子 关注私信空间博客 wfylg 本版专家分：383: li1229363() ( ) 信誉：100    Blog   加为好友  2007-05-10 10:08:11  得分: 0

   不使用vb客户端脚本，都使用的是javaxcript脚本

你应该在input上添加一个changge或者chick，方法是以函数，写法和你写的类似就OK了
________________________________________
我明白你的意思.但我是想提交保存时检测

0 2007-05-10 10:30:03

只看TA 引用举报 #7    得分 0

⋅textarea 的value属性 ⋅求分类排序的SQL语句 ⋅简单问题,在线等... 更多帖子 关注私信空间博客 wfylg 本版专家分：383: wangwm(星星火炬-http://jymass.com) ( )

按你的方法是,不管选什么,保存时这边都提示安装单了????

0 2007-05-10 10:36:07

只看TA 引用举报 #8 得分 0

⋅如何判断网页中的资源下载是否成功？ 更多帖子 关注私信空间博客 chuckcoin 本版专家分：3467: 客户端脚本用javascript写吧
<script language="javascript">
function dosave()
{
if (document.getElementById("xxx").checked)
alert("安装单!" + vbInformation + "提示");

frmxx.action = "gd_edit_save.asp";
frmxx.submit();
}
</script>

<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1" id="xxx">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

0 2007-05-10 10:44:46

只看TA 引用举报 #9 得分 0

⋅点击DataGrid中的ImageButton按钮弹出窗口问题 ⋅如何给Substring赋值？ ⋅如何安装C++ builder中的ImageEx、ImagePanel等组件包？ 更多帖子 关注私信空间博客 wangwm 本版专家分：15535 红花 2007年5月 Web 开发大版内专家分月排行榜第一 黄花 2005年6月 Web 开发大版内专家分月排行榜第二 2007年4月 Web 开发大版内专家分月排行榜第二: 你要怎么判断？

<script language="vbscript">
Sub dosave
Dim flag
        flag = False

For Each rs In frmxx.R1
  If rs.checked Then
            flag = True
Exit For
  End if
         next
If flag=false Then
msgbox "请选择!",vbInformation,"提示"
Exit Sub
End if

frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>

0 2007-05-10 10:45:06

只看TA 引用举报 #10    得分 0

⋅如何判断网页中的资源下载是否成功？ 更多帖子 关注私信空间博客 chuckcoin 本版专家分：3467: 按钮忘了改了
<input type="button" class="button" onclick='javascript:dosave()' value="保存" id="button1" name="button1">

0 2007-05-10 10:46:26

只看TA 引用举报 #11 得分 0

⋅textarea 的value属性 ⋅求分类排序的SQL语句 ⋅简单问题,在线等... 更多帖子 关注私信空间博客 wfylg 本版专家分：383: 谢谢楼上的两位,可是我按你们的方法调试还是没有成功,
wangwm(星星火炬-http://jymass.com)你后面的可以,但是判断有没有选取单选框,这个是没问题,但我是想当我选中了第一项时我能得到他的value值,可是按你的代码原理上没问题,但怎么得不到我要的结果呢

0 2007-05-10 11:09:36

只看TA 引用举报 #12 得分 0

⋅点击DataGrid中的ImageButton按钮弹出窗口问题 ⋅如何给Substring赋值？ ⋅如何安装C++ builder中的ImageEx、ImagePanel等组件包？ 更多帖子 关注私信空间博客 wangwm 本版专家分：15535 红花 2007年5月 Web 开发大版内专家分月排行榜第一 黄花 2005年6月 Web 开发大版内专家分月排行榜第二 2007年4月 Web 开发大版内专家分月排行榜第二: <script language="vbscript">
Sub dosave
Dim flag
Dim sValue
        flag = False

For Each rs In frmxx.R1
  If rs.checked Then
            flag = True
sValue = rs.Value
Exit For
  End if
         Next
         If flag Then
   If sValue = 0 Then
             MsgBox "安装单!",vbInformation,"提示"
             Exit Sub
   End if
End if
If flag=false Then
msgbox "请选择!",vbInformation,"提示"
Exit Sub
End if

frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>

0 2007-05-10 11:12:08

只看TA 引用举报 #13    得分 20

wfylg 本版专家分：383: 非常谢谢wangwm,问题解决

0 2007-05-10 11:54:14

只看TA 引用举报 #14 得分 0

简单问题,在线等... [问题点数：20分，结帖人wfylg]