[求助]如何通过复选框实现组合条件筛选？还有其他方法吗？ - VB编程论坛

[求助]如何通过复选框实现组合条件筛选？还有其他方法吗？

此主题相关图片如下：

创建并定义了一个复选框数组（0-5），同时定义了6个逻辑型变量数组，逻辑变量的TRUE值根据的复选框的Value值判别，
Private Sub Check1_Click(Index As Integer)
    Dim tj(0 To 5) As Boolean
    Dim n As Integer
    Dim a As Integer
        For n = 0 To 5
            If Check1(n).Value = 1 Then tj(n) = True
        Next n
    if 如果某个数同时满足选择了的复选框对应的几个条件，then Print a（意思是说，没有打“√”的复选框对应的条件不用满足，但打了“√”的复选框的条件必须同时满足，才打印a。）
End Sub

请教各位高手，上面中文的那段代码如何编写？
本人是新手，麻烦尽可能讲解得详细一些。或者给个代码。谢谢~~~~~~~~~~~~！！！

[此贴子已经被作者于2008-8-28 23:51:56编辑过]

你这个不是用于数据库查询的吧？我想可以再用一个循环来解决。

dim pass as boolean
for i=0 to 5
  if tj(i)=true then
      pass=false
        select i
         case 0
             if 条件一的判断式=true then pass=true
         case 1
             if 条件二的判断式=true then pass=true
         case 2
             ～～～～
         case 3
         case 4
         case 5
      end select
    if pass=false then quit  (退出循环，我忘了VB是不是这么写了，好久没用了,反正就这个意思吧。)
   end if
next i
if i<5 then 不用打印了 ,goto end sub      (如果i<5即意味着条件还没滚完就已经发现不满足的条件了，所以提前退出了循环)
else
if pass=false then 不用打印了 ,goto end sub  (如果i=5的时候，意味着条件滚完了，但有个例外情况：如果第六条件被选中，而之前的条件全部满足时，无论第六个条件是否满足，I都会等于5,所以这里要对最后完成的条件判断进行检查，即检查Pass是否为真。如果Pass为真则全部条件满足。）

print a

end sub

好久没用VB了，所以语法上可能会有问题，请别见怪。我只是说说解决这个问题的逻辑思路，也许比较笨。

*快速回复：[求助]如何通过复选框实现组合条件筛选？还有其他方法吗？ [ 回帖是一种美德 :) ]
会员账号	用户名：还没注册? 密码：忘记密码?
内容 HTML标签：不可用 UBB标签：可用贴图标签：可用多媒体标签：可用表情字符转换：可用上传图片：不可用最多15KB
点击表情图即可在帖子中加入相应的表情
邮件回复显示签名	[Ctrl+Enter直接提交贴子]

*快速回复：[求助]如何通过复选框实现组合条件筛选？还有其他方法吗？ [ 回帖是一种美德 :) ]

会员账号

用户名：还没注册? 密码：忘记密码?

内容

HTML标签：不可用

UBB标签：可用

贴图标签：可用

多媒体标签：可用

表情字符转换：可用

上传图片：不可用

最多15KB

点击表情图即可在帖子中加入相应的表情