Dim y As Integer, u As Integer, i As Integer
u = InStr(1, 字段1, "a")
i = InStr(1, 字段2, "b")
If u > 0 And i > 0 Then
y = 3
ElseIf u > 0 Then
y = 1
ElseIf i > 0 Then
y = 2
End If作者: aslxt 时间: 2011-5-25 09:29 本帖最后由 aslxt 于 2011-5-25 09:31 编辑
SELECT 表名称.字段1, 表名称.字段2, IIf(InStr([字段1],"A")>0,1,0)+IIf(InStr([字段2],"B")>0,2,0) AS Y FROM 表名称;
注意:都不符合条件时,用0代替了