以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]筛选出列名含_连的所有列值大于5的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192864)

--  作者:185723664
--  发布时间:2024/7/28 10:58:00
--  [求助]筛选出列名含_连的所有列值大于5的行
求助,窗口按钮代码,实现筛选出列名含_连(超过50个含_连的列)的所有列值大于文本框里x的行
下面代码超过50个含_连的列时,失效,求修复
Dim TB As WinForm.TextBox = e.Form.Controls("TextBox1")
If TB.Text <> "" Then
    Dim s As String = "1=1 "
    For Each C As Col In Tables("表A").Cols
        If C.Name.Contains("_连") Then
            s = s & " and " & C.Name & " >= " & TB.Text
        End If 
    Next

    MessageBox.Show(s)
    Tables("表A").Filter = s
Else
    MessageBox.Show(123)
End If
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:22.foxdb



[此贴子已经被作者于2024/7/28 11:29:22编辑过]

--  作者:有点蓝
--  发布时间:2024/7/28 20:06:00
--  
表达式都是有长度限制的。

1、改为使用SQL查询(网上查了一下,access的sql语句最长65,536字符,SQL Server 2016及之前的版本限制为128 MB,SQL Server 2017及之后的版本提升到了250 MB
2、遍历所有行所有列逐个判断

--  作者:185723664
--  发布时间:2024/7/28 21:18:00
--  回复:(有点蓝)表达式都是有长度限制的。1、改为使用...
蓝老师,不会access的sql语句,有空辛苦帮忙写一个,感谢
--  作者:有点蓝
--  发布时间:2024/7/28 21:21:00
--  
试试

Dim TB As WinForm.TextBox = e.Form.Controls("TextBox1")
If TB.Text <> "" Then
    Dim s As String = "1=1 "
    For Each C As Col In Tables("表A").Cols
        If C.Name.Contains("_连") Then
            s = s & " and " & C.Name & " >= " & TB.Text
        End If 
    Next

    MessageBox.Show(s)
    dataTables("表A").loadFilter = s
    dataTables("表A").load
Else
    MessageBox.Show(123)
End If

--  作者:y2287958
--  发布时间:2024/7/29 9:29:00
--  
Dim TB As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
If TB.Text <> "" Then
    Dim 列名集 As New List(Of String)(Tables("表A").cols.where(Function(列) 列.name.Contains("连")).select(Function(列) 列.name & ">" & TB.Text))
    Tables("表A").Filter = String.join(" and ", 列名集)
End If