以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多列筛选  (http://foxtable.net/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楼只是描述 一个现象,没看出来说的是什么问题?