主题：[求助]窗口上如何做筛选

在"页面-事件-selectedindexchang"里输入代码,用"select case"语句选择页面.如果不如何写代码,请在帮助的搜索中输入"

SelectedIndexChanged"查找!

这是我按照帮助写的一段代码,用于查找会计科目的页面.希望对你有帮助.也请大侠们批评指教.

Dim bar As WinForm.tabcontrol = e.sender
Select Case bar.SelectedPage.Text
    Case "全部"
        MainTable = Tables("会计科目")  '窗口各个页面中表控件绑定的都是"会计科目"表,下同
    Case "资产类"
        Tables("窗口5_table2").Filter = "[科目代码] like '1*'"
    Case "负债类"
        Tables("窗口5_table3").Filter = "[科目代码] like '2*'"
    Case "权益类"
        Tables("窗口5_table4").Filter = "[科目代码] like '3*'"
    Case "成本类"
        Tables("窗口5_table5").Filter = "[科目代码] like '4*'"
    Case "损益类"
        Tables("窗口5_table6").Filter = "[科目代码] like '5*'"
       
End Select

选中“页面集合（TabControl1）”控件，点“事件”，在第一条“selectedindexchanged”里输入代码：

（前提是在页面集合的每个页面里都要插入“table”控件，并绑定要操作的表（作为副本），而且设定好要显示的列及其列宽。你要绑定的是“服务总表”）

Dim bar As WinForm.tabcontrol = e.sender
Select Case bar.SelectedPage.Text
case "报修”

Tables("窗口5_table2").Filter = "[报修] ＝true"  ’本人理解，这些列应该是逻辑列，下同.如果是要显示“服务总表”，用maintable=tables("服务总表"）
Case "未派工"
Tables("窗口5_table3").Filter = "[派工]＝false"
Case "已派工"
Tables("窗口5_table4").Filter = "[派工]＝true"
Case "完工"
Tables("窗口5_table5").Filter = "[完工]＝true"
End Select

请试一试看。