代码不起作用

Question

List1.Clear
    L = Check1().UBound
    
    For I = 0 To L
       If Check1(I).Value = 1 And Check2(I).Value = 1 And Check3(I).Value = 1 Then
        S1 = Check1(I).Index & " " & Check2(I).Index & " " & Check3(I).Index
        For j = 0 To L
            For K = 0 To L
                S2 = Check1(I).Index & " " & Check2(j).Index & " " & Check3(K).Index
                If S1 <> S2 Then MSFlexGrid1.AddItem S2
            Next K
        Next j
        End If
    Next I3个控件数组中如果有value=1的Check,就把value=1的Check的index组成3个数的数列
但是,这段代码不起作用,不知为什么?如何修改

Answer 1

If Check1(I).Value = 1 And Check2(I).Value = 1 And Check3(I).Value = 1 Then
有问题!但我不知道你的程序想做到怎么样,所以不知道怎么改
当你的值为才可以通过
 Index\ C1 C2 C3
   0    1  1   1 通过
   1    0  1   0 不能
   2    1  0   1 不能
....

Answer 2

重新说一遍问题扫描checK1()控件数组,把value=1也就是选中的chechk控件的index的值赋值给数组temp()

Answer 3

你的代码偶看不懂，SORRY。
为什么不起作用的原因二楼说了，If S1 <> S2 Then MSFlexGrid1.AddItem S2也是莫名其妙。