主题：[分享]Foxtable内置筛选器

Dim MyForm As Windows.Forms.Form = Windows.Forms.Form.ActiveForm

If MyForm Is Nothing Then Return

If MyForm.Name = "FilterEditorForm" Then

    With MyForm.Controls("ColumnFilterEditor").Controls("_conditionFilterEditor")

        If .Controls("_label").Text = "按以下条件显示行" Then Return

        .Controls("_label").Text = "按以下条件显示行"

        .Controls("_btnOr").Text = "或"

        .Controls("_btnAnd").Text = "与"

        Dim ArrText1 As String() = {"(Not Set)","Equals","Does Not Equals","Is Greater than","Is Less than","Is Greater than or Equal to","Is Less than or Equal to","Contains","Does Not Contain","Begins with","Ends with"}

        Dim ArrText2 As String() = {"(不设置)","等于","不等于","大于","小于","大于等于","小于等于","包含","不包含","开始于","结束于"}

        Dim MyCombo As Windows.Forms.ComboBox = .Controls("_cmbOp1")

        For i As Integer = 0 To Ubound(ArrText2 )

            MyCombo.Items(i) = ArrText2(i)

        Next

        MyCombo = .Controls("_cmbOp2")

        For i As Integer = 0 To Ubound(ArrText2 )

            MyCombo.Items(i) = ArrText2(i)

        Next

    End With

    Dim MyToolBar As Windows.Forms.ToolStrip = MyForm.Controls("_toolStrip")

    With MyToolBar

        .Items("_btnCancel").Text = "取消"

        .Items("_btnClearFilter").Text = "清除"

        .Items("_btnApplyFilter").Text = "筛选"

        .Items("_btnTextFilter").Text = "文本筛选"

        .Items("_btnDateTimeFilter").Text = "日期/时间筛选"

        .Items("_btnNumericFilter").Text = "数值筛选"

        .Items("_btnValueFilter").Text = "值筛选"

        Dim ToolBarSplitBtn As Windows.Forms.ToolStripSplitButton = .Items("_btnTextFilter")

        With ToolBarSplitBtn.DropDownItems

            .Item("_mnuEquals").Text = "等于"

            .Item("_mnuDoesNotEqual").Text = "不等于"

            .Item("_mnuBeginsWith").Text = "开始于"

            .Item("_mnuEndsWith").Text = "结束于"

            .Item("_mnuContains").Text = "包含"

            .Item("_mnuDoesNotContain").Text = "不包含"

            .Item("_mnuGreaterThan").Text = "大于"

            .Item("_mnuGreaterThanOrEqualTo").Text = "大于等于"

            .Item("_mnuLessThan").Text = "小于"

            .Item("_mnuLessThanOrEqualTo").Text = "小于等于"

            .Item("_mnuBetween").Text = "介于"

        End With

    End With

End If