iif和instr函数都是vb的函数,在sql下当然不认识。需要用if或select分支语句,用不同的sql语句查询if ... then sql= "......" else sql="......" end if rsbltj.Open sql, cnn, adOpenStatic, adLockOptimistic
'SQL 2005 dim sql as stringsql="Select id,"& _ "CASE WHEN CHARINDEX('" & strNItemName & "',药物)>0 THEN 1 ELSE 0 END "& _ "From 病例 Where id=" & intid
sql= "......"
else
sql="......"
end if
rsbltj.Open sql, cnn, adOpenStatic, adLockOptimistic
'SQL 2005
dim sql as stringsql="Select id,"& _
"CASE WHEN CHARINDEX('" & strNItemName & "',药物)>0 THEN 1 ELSE 0 END "& _
"From 病例 Where id=" & intid