Office中国论坛/Access中国论坛

标题: 一个随即IF函数的问题 [打印本页]

作者: mandyliu912 时间: 2005-12-5 10:36
标题: 一个随即IF函数的问题
请各位大大帮帮

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

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编辑过]

作者: 情比金坚 时间: 2005-12-5 11:07
循环看看有多少个逗号罗？

作者: mandyliu912 时间: 2005-12-5 11:20
这个是我分裂条件的句子

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 他不运作

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)