主题：筛选出错

加一bh字符表達式列(隐藏),表達式為[编号]:

Dim txt,bds,bm As String

Dim tb As Table = Tables("支出明细")

Dim Ls As String() ={"bh","关单号","支出项目","收款人","支出账户"} '相關列

txt  = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1").text

If txt  > "" Then

    txt = " Like '*" & txt & "*'"

    For Each bm In Ls

        bds+ = " Or " & bm  & txt

    Next

    bds = bds.substring(4)

End If

tb.filter = bds