主题：Label26作为查询

'Dim Filter As String

'With e.Form.Controls("Label26")

    'If .Text<> Nothing Then

        'If Filter > "" Then

            'Filter = Filter & " And "

        'End If

        'Filter = Filter & "基本信息_在职企业号 = '" & .Text & "'"    '此处内容自行修改

    'End If

'End With '用Label控件做为查询基础

'If Filter > "" Then

    'DataTables("企业档案窗口_Table2").LoadFilter = Filter

    'DataTables("企业档案窗口_Table2").Load

'End If

'Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 0  '点击后立刻显示TabControl的页面