Dim bar As WinForm.TabControl = e.sender msgbox(bar.SelectedPage.Text) Select Case bar.SelectedPage.Text Case "全部" MainTable = Tables("表A") Case "赢单" Tables("终端用户").Filter = "[客户等级] = '赢单客户'" Case "输单" MainTable = Tables("表C") Case "公海" MainTable = Tables("表C") End Select