这样写有问题吗？

[m_nAdrs]

If 名片管理系统.Option9.Value = 1 And 名片管理系统.Option10.Value = 1 & _
名片管理系统.Option11.Value = 1 And 名片管理系统.Option12.Value = 1 & _
名片管理系统.Option13.Value = 1 And 名片管理系统.Option14.Value = 1 & _
名片管理系统.Option15.Value And 名片管理系统.Option16.Value = 1 Then

temp = 1

[m_nAdrs]

[Quote=引用 9 楼 cbm666 的回复:]
引用楼主 m_nadrs 的回复:
If 名片管理系统.Option9.Value = 1 And 名片管理系统.Option10.Value = 1 & _
名片管理系统.Option11.Value = 1 And 名片管理系统.Option12.Value = 1 & _
名片管理系统.Option13.Value = 1 And 名片管理系统.Opti……
[/Quote]
汗，帖子已经结了，我找的问题原因了，呵呵， 不过你这是个办法， - - 顶你了，分就没咯 - -哈哈，看你也不需要了

[Michael_g]

问题太大了，怎么能用中文名称？这要是在英文系统下，还能编译通过吗？非常不好的编程习惯。

[神马被哪个妞占用了呢]

逻辑方面没有错误

[m_nAdrs]

回复1楼， 这样写 - - 是我个人的点问题，要改现在也不好改了，
回复2楼， 为什么我设断点， temp 的值不是1呢？

[帝企鹅已被占用]

dim temp as integer/long

[king06]

.Value = 1 ? 如果是optionbutton, 建议写成 =true
另外,如果各optionbutton在同一容器内,不可能都=true

[soarsoar77]

名片管理系统.Option15.Value
这个后面怎么没有=1啊

[m_nAdrs]

回复4楼， 你说的那里我没问题

回复5楼，非常蛋疼的说，当初我做的时候本来是单选按钮的，所以是option嘛，但是后来要改成复选钮， 所以我把复选按钮的名字都改成了option， 这里应该没问题

回复6楼， 你的眼力真好，但是没解决额

[m_nAdrs]

吃顿饭， 想到了， 少了几个 and ...... 结贴

[cbm6666]

[Quote=引用楼主 m_nadrs 的回复:]
If 名片管理系统.Option9.Value = 1 And 名片管理系统.Option10.Value = 1 & _
名片管理系统.Option11.Value = 1 And 名片管理系统.Option12.Value = 1 & _
名片管理系统.Option13.Value = 1 And 名片管理系统.Option14.Value = 1 & _
……
[/Quote]

易语言.......哈哈哈

Option控件的Value应该是等于 True 或False CheckBox的Value才是0或1

窗体名称不跨越的话 可以不用加,还有楼主这样使用控件的话, 非得每个Option控件分别用容器picturebox或Frame包装起来, 否则不可能让你同时多选的.

所以楼主的代码可以简化为

If Option9 And Option10 And Option11 And Option12 And Option13 And Option14.Value And Option15 And Option16 Then temp = 1