- 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=33425)
-- 发布时间：2013/5/17 18:13:00
-- 单选框赋值
此主题相关图片如下：tm截图未命名.jpg
-- 发布时间：2013/5/18 8:21:00
--
单选框赋值
-- 发布时间：2013/5/18 9:02:00
--
你的文本框值从何而来?
-- 发布时间：2013/5/18 9:03:00
--
你TEXTBOX控件都没定义，把TEXTBOX控件的值赋予DROPDOWNBOX就可以了
-- 发布时间：2013/5/18 9:05:00
--
文本框的内容是手动输入的
-- 发布时间：2013/5/18 9:06:00
--
e.Form.DropDownBOx.Value = txt.Text是错的 txt是没赋值过 应该是改成rod
就是textbox这个文本框代码应该怎么改
-- 发布时间：2013/5/18 9:09:00
--
此主题相关图片如下：tm截图未命名.jpg
选中下面的单选框可以把文本框里的内容传送给下拉框
[此贴子已经被作者于2013-5-18 9:09:15编辑过]
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2013/5/18 10:39:00
--
此主题相关图片如下：tm截图未命名.jpg
此主题相关图片如下：tm截图未命2名.jpg
定义好 赋值好 现在不管选哪个都是提示了