求教如何将多个复选框不为空的内容赋值给文本框

jinfen314

如题:
想对一文本框进行赋值,

头痛□     头晕■    恶心□     眼花    心悸□    胸闷□    胸痛□   呼呼吸困难□   紧张□

如选择了其中几项,则文本框内容就为已选择的复选框内容:   text20 :头痛  恶心  眼花  呼呼吸困难

在线等

gdfsslec

用CheckBox：
IF CheckBox1=True Then
text20="头痛"
EndIf
IF CheckBox2=True Then
text20=text20 & "头晕"
EndIf
..........

jinfen314

原帖由 gdfsslec 于 2007-11-18 15:39 发表
用CheckBox：
IF CheckBox1=True Then
text20="头痛"
EndIf
IF CheckBox2=True Then
text20=text20 & "头晕"
EndIf
..........

有一个问题,如果checkBox1不选,2选中,那按你的方法,则1也会显示再文本框中,如果复选框很多那就很麻烦

jinfen314

问题基本解决,只是代码协定比较多,谢谢 gdfsslec朋友

jinfen314

原帖由 cuxun 于 2007-11-18 16:33 发表
做个例子给你看

正是我想要的,非常感谢
但如果其中混有文本框,请问怎么改

[ 本帖最后由 jinfen314 于 2007-11-18 16:50 编辑 ]

jinfen314

谢谢cuxun
我说的混有文本框的意思是说,
在所有的复选框后面还有一个 其他的文本框,文本框可以自己录入内容,
最后显示的结果是 选中的复选框+其他文本框,
请cuxun能给与解决谢谢,同样反向操作也需要将哪个其他文本框的内容也显示出来

cyber-bobo

bug:当什么都不选时就会出现错误信息，应在赋值前做一判断。

jinfen314

原帖由 cyber-bobo 于 2007-11-19 00:38 发表
bug:当什么都不选时就会出现错误信息，应在赋值前做一判断。

试了一下确实会出现这种情况,根据cuxun的方法,还是会报错:无效的过程或调用.
我对代码不太懂,请cuxun能给与解决一下