一个随即IF函数的问题

mandyliu912

请各位大大帮帮

我想要得到这样一个最终的句子

If S<>"条件1" and S<>"条件2" and S<>"条件3" and S<>"条件4"  Then (其中条件的多少要取决于窗体文本框里输入的条件数目)

窗体文本框里可以输入(条件1,条件2,条件3........随机不确定多少个条件,条件以逗号分开)

请问我怎么用vb 获得 If S<>条件 and 的语句,因为文本框里的条件每次输入的个数不一样.

最头疼的是if 后面有个Then所以条件必须加冒号....我能做到的是可以把: (条件1,条件2,条件3) 用vb做成 (X=条件1 and S<>条件2 and S<>条件3 and S<>条件4)

If S<>条件1 and S<>条件2 and S<>条件3 and S<>条件4  Then 但是上面这个没有冒号无法运行

[此贴子已经被作者于2005-12-5 3:10:23编辑过]

情比金坚

循环看看有多少个逗号罗？

mandyliu912

这个是我分裂条件的句子

If InStr(1, 条件文本, ",") > 0 Then
               
                A = Split(条件文本, ",")
                b = ""
                For i = 0 To UBound(A)
            
                b = b & "& A(i) &"  "and s <> "
               
                Next
               
                b = Left(b, (Len(b) - 10))      '去掉最后一次and <> s 占10个位置
               
                End If

(此时 b= 条件1 and s<>　条件２　and s<>条件３）

但如果最后用 IF S<>B then 他不运作

是不是因为条件没有冒号的原因？