以文本方式查看主题 - 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 表为动态创建表 |
-- 作者:有点蓝 -- 发布时间:2019/2/25 21:57:00 -- 1楼只是描述 一个现象,没看出来说的是什么问题? |