Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单选框赋值


  共有5321人关注过本帖树形打印复制链接

主题：单选框赋值
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		单选框赋值  发帖心情 Post By：2013/5/17 18:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命名.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 8:21:00 [只看该作者]

单选框赋值

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/5/18 9:02:00 [只看该作者]

你的文本框值从何而来?

 回到顶部
帅哥哟，离线，有人找我吗？
XYT
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00 		  发帖心情 Post By：2013/5/18 9:03:00 [只看该作者]

你TEXTBOX控件都没定义，把TEXTBOX控件的值赋予DROPDOWNBOX就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 9:05:00 [只看该作者]

文本框的内容是手动输入的

 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 9:06:00 [只看该作者]

e.Form.DropDownBOx.Value = txt.Text是错的  txt是没赋值过  应该是改成rod 

就是textbox这个文本框代码应该怎么改

 
 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 9:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命名.jpg
图片点击可在新窗口打开查看
选中下面的单选框可以把文本框里的内容传送给下拉框
[此贴子已经被作者于2013-5-18 9:09:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 10:11:00 [只看该作者]

这个赋值应该怎么写呀 我写了老半天 还是提示错的

For Each ctl As WinForm.Control In e.Form.Controls '遍历所有控件

    If TypeOf ctl Is WinForm.RadioButton Then '如果此控件是RadionButton(单选框)


        Dim rdo As WinForm.RadioButton = ctl
        If rdo.Checked Then '如果已经选中
            e.Form.DropDownBox.Value = rdo.Text '将此单选框的文本赋值给下拉组合框
            e.Form.DropDownBox.CloseDropdown() '关闭下拉窗口
            Exit For
        End If

    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
XYT
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00 		  发帖心情 Post By：2013/5/18 10:21:00 [只看该作者]

我晕，单选框是一个控件，文本框是一个控件，你直接把文本框的控件的值赋予下拉组合框就可以了，有这么麻烦吗

 Dim txt As WinForm.textbox

 Dim rdo As WinForm.RadioButton = ctl

 If rdo.Checked Then '如果已经选中


           e.Form.DropDownBox.Value = txt.Text


 回到顶部
帅哥哟，离线，有人找我吗？
hwj3551670
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00 		  发帖心情 Post By：2013/5/18 10:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命名.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：tm截图未命2名.jpg
图片点击可在新窗口打开查看
定义好 赋值好 现在不管选哪个都是提示了
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询