- 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=62166)
-- 发布时间：2014/12/26 15:17:00
-- [求助]如何在功能区使用单选框？
如何在功能区使用单选框？看了，只有检查框，有没有其他方式？
-- 发布时间：2014/12/26 15:18:00
--
菜单没有单选框。
你可以用复选框模拟成单选框的效果。
-- 发布时间：2014/12/26 16:14:00
--
功能区检查框如下（目的：选中全部，则已付和未付不能选中，只能取消全部，才能选已付或者未付，其他类似）:
全部：rdoall 已付：rdoyifu 未付：rdoweifu
在rdoall的CheckedChanged事件写如下代码：
Dim ra As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoall")
Dim ry As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoyifu")
Dim rw As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoweifu")
If ra.Checked=True
ry.Checked=False
rw.Checked=False
End If
为什么rdoall不取消选中，rdoyifu和rdoweifu检查框照样能选中？
-- 发布时间：2014/12/26 16:19:00
--
选中 rdoyifu 或 rdoweifu 的时候，把 rdoall 取消选择不就行了？
-- 发布时间：2014/12/26 16:28:00
--
（2）在rdoyifu的CheckedChanged事件写如下代码：
Dim ra As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoall")
Dim ry As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoyifu")
Dim rw As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoweifu")
If ry.Checked=True
ra.Checked=False
rw.Checked=False
End If
（3）在rdoweifu的CheckedChanged事件写如下代码：
Dim ra As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoall")
Dim ry As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoyifu")
Dim rw As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoweifu")
If rw.Checked=True
ra.Checked=False
ry.Checked=False
End If
以上是我设置的，但是在预览操作的时候三个检查框都能打钩选中，不知哪里错了，还是思路不对？
-- 发布时间：2014/12/26 16:29:00
--
刚才看了，可以了，在预览状态下都能选，但是退出预览操作没有问题。谢谢甜版！
-- 发布时间：2014/12/26 16:30:00
--
不要在预览里测试，你确定后测试啊。
-- 发布时间：2014/12/26 16:54:00
--
Dim Filter As String
With e.Form.Controls("trucknum")
If .Value IsNot Nothing Then
Filter = "车号= \'" & .Value & "\'"
End If
End With
甜版，这段代码，我在功能区如何调用或者如何进行修改能
-- 发布时间：2014/12/26 17:05:00
--
Dim Filter As String
With Forms("窗口1").Controls("trucknum")
If .Value IsNot Nothing Then
Filter = "车号= \'" & .Value & "\'"
End If
End With
-- 发布时间：2014/12/26 17:45:00
--
甜版，出现如下提示：
此主题相关图片如下：错误提示1.jpg
此主题相关图片如下：错误提示2.jpg