[求助]如何在功能区使用单选框？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何在功能区使用单选框？看了，只有检查框，有没有其他方式？

功能区检查框如下（目的：选中全部，则已付和未付不能选中，只能取消全部，才能选已付或者未付，其他类似）:

全部：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检查框照样能选中？

（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

以上是我设置的，但是在预览操作的时候三个检查框都能打钩选中，不知哪里错了，还是思路不对？

刚才看了，可以了，在预览状态下都能选，但是退出预览操作没有问题。谢谢甜版！

Dim Filter As String

With e.Form.Controls("trucknum")

If .Value IsNot Nothing Then

Filter = "车号= '" & .Value & "'"

End If

End With

甜版，这段代码，我在功能区如何调用或者如何进行修改能

甜版，出现如下提示：
图片点击可在新窗口打开查看

此主题相关图片如下：错误提示1.jpg

此主题相关图片如下：错误提示2.jpg

OK！谢谢甜版！

Dim Filter As String

Dim trn As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组5").Items("trucknum")

Dim sfa As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组5").Items("sfaddress")

Dim sfn As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组5").Items("sfnum")

Dim ssn As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组5").Items("ssnum")

Dim std As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("功能组5").Items("startdate")

Dim edd As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("功能组5").Items("enddate")

Dim ry As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoyifu")

Dim rw As RibbonMenu.CheckBox = RibbonTabs("功能区1").Groups("功能组5").Items("rdoweifu")

With trn

If .text IsNot Nothing Then

Filter = "车号= '" & .text & "'"

End If

End With

With sfa

If .text IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "收发地点 like '%" & .text & "%'"

End If

End With

With sfn

If .text IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "实发数= '" & .text & "'"

End If

End With

With ssn

If .text IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "实收数= '" & .text & "'"

End If

End With

With std

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= #" & .Value & "#"

End If

End With

With edd

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= #" & .Value & "#"

End If

End With

If ry.Checked = True ' 如果付款状态选择了"已付"

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "运费结算实付日期 is not null"

End If

If rw.Checked = True ' 如果付款状态选择了"未付"

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "运费结算实付日期 Is Null"

End If

If Filter > "" Then

Tables("运费查询").Filter = Filter

End If

甜版，上述代码运行有问题，麻烦您给检查一下

如下错误提示：

此主题相关图片如下：错误3.jpg

主题：[求助]如何在功能区使用单选框？