主题：[分享]筛选条件批量化

此主题相关图片如下：qwe.png

 

 

附源代码！

欢迎一起学习！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.zip

多谢分享

真的赞

 对于逻辑列，还请教下如何编写。
因为学着套用了一下，添加关键代码(其它dim代码略过)：

For i As Integer = 0  To txts.Length -1
    Dim str As String = e.Form.Controls(checkb(i)).Checked
    If str = "" Then
        fls.Add(checkb(i) & " = 0")
    Else
        fls.Add(checkb(i) & " = 1")
    End If
Next

出错提示： 索引超出了数组界限

 回复4楼，把你的项目发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.zip

例如这个.table版

还有个问题，我改了代码后，查过mdb文件，逻辑列变成0/-1

而非帮助文件里面常用的0/1?

For i As Integer = 0  To checkb.Length -1 '新增代码
    Dim str As String = e.Form.Controls(checkb(i)).Checked
    If str = False Then
        fls.Add(checkb(i) & " = false")
    Else
        fls.Add(checkb(i) & " = true")
    End If
Next

 

谢谢，刚刚重复检查了下，忘记将checkb替换了，因为考虑帮助文件其中一节 :逻辑列的查询，使用TRUE和FALSE,执行效率慢，使用01处理较好，但事实数据库里面却是0/-1表示，有点想不明白。

 

For i As Integer = 0  To checkb.Length -1 '新增代码
    Dim str As String = e.Form.Controls(checkb(i)).Checked
    If str = False Then
        fls.Add(checkb(i) & " = 0")
    Else
        fls.Add(checkb(i) & " = -1")
    End If
Next

sqlserver用0/1存放，access用0/-1存放。

 

条件你可以这样写 fls.Add(checkb(i) & " <> 0")