以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多列筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131423)
--  作者：nxhylczh
--  发布时间：2019/2/25 21:11:00
--  多列筛选
If CurrentTable.Name.StartsWith("查看账页") Then
    MessageBox.show("1")
    If CurrentTable.Focus Then
    Dim txtsx As WinForm.TextBox = e.Form.Controls("txtsx")
    Dim T1 As Table =CurrentTable
    Dim txt As String ="%" & Functions.Execute("RealStr",txtsx.text )  & "%"
    Dim Filter As String \'="分组_编码 like " & txt & " or 分组_名称 like " & txt & " Or 计量单位 Like " & txt
    For i As Integer=0 To t1.Cols.Count-1
        If t1.Cols(i).IsString Then
            Filter=filter & t1.cols(i).Name & " like \'" & txt & "\' Or "
        Else If t1.cols(i).IsNumeric Then
            Filter=filter & t1.cols(i).Name & " = " & txt & " Or "
        End If
        
    Next
    Filter=left(Filter,filter.Length-3)
    \'MessageBox.show(filter)
    t1.Filter= Filter
    End If
End If

表为动态创建表

图片点击可在新窗口打开查看此主题相关图片如下：l(zv8gbk3@rabjs3{{aqsv.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/2/25 21:57:00
--  
1楼只是描述 一个现象，没看出来说的是什么问题？