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

真的赞

 对于逻辑列，还请教下如何编写。
因为学着套用了一下，添加关键代码(其它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

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

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

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

例如这个.table版

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

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

 

谢谢，刚刚重复检查了下，忘记将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