主题：[求助]导航和单选框组合查询

左边是导航栏，点击导航页面里面的每个节点，可以筛选出数据，想进一步对已筛选出的数据进行划分，增加了3个radiobutton（“待解决”“已更新”“已解决”），

那么CheckedChanged代码怎么写呢？

 

Dim Bar As WinForm.NavBar
Dim Page1 As WinForm.NavPage
Bar = Forms("BUG研发查询修改系统").Controls("NavBar1")
Page1 = Bar.NavPages("按照组别查询")
DataTables("BUG研发表").loadFilter = ""
DataTables("BUG研发表").Load()
Dim Filter As String
If e.Node.Text <> "显示所有研发的BUG" Then
    Select Case e.Node.Level
        Case 1
            Filter = "[模块维护人] = '" & e.Node.Text & "'  and 状态 = '已解决'"
    End Select
End If
DataTables("BUG研发表").loadFilter = Filter
DataTables("BUG研发表").Load()

此主题相关图片如下：error.png


此主题相关图片如下：界面.png