- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [分享]筛选条件批量化 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103442)
-- 发布时间：2017/7/8 11:41:00
-- [分享]筛选条件批量化
此主题相关图片如下：qwe.png
附源代码！
欢迎一起学习！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目22.zip |
[此贴子已经被作者于2017/7/8 18:05:54编辑过]
-- 发布时间：2017/7/8 12:36:00
--
多谢分享
-- 发布时间：2017/7/8 18:51:00
--
真的赞
-- 发布时间：2017/7/26 22:40:00
--
对于逻辑列，还请教下如何编写。
因为学着套用了一下，添加关键代码(其它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
出错提示： 索引超出了数组界限
-- 发布时间：2017/7/26 22:46:00
--
回复4楼，把你的项目发上来测试。
-- 发布时间：2017/7/26 23:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目22.zip |
例如这个.table版
还有个问题，我改了代码后，查过mdb文件，逻辑列变成0/-1
而非帮助文件里面常用的0/1?
[此贴子已经被作者于2017/7/26 23:12:43编辑过]
-- 发布时间：2017/7/26 23:17:00
--
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
-- 发布时间：2017/7/26 23:31:00
--
以下是引用有点甜在2017/7/26 23:17:00的发言：
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
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
-- 发布时间：2017/7/27 9:23:00
--
sqlserver用0/1存放，access用0/-1存放。
条件你可以这样写 fls.Add(checkb(i) & " <> 0")