strSQL = strSQL & ampIIF(Easp_isN(strUserID),“,”和UserID LIKE“%”& amp;斯特魯瑟裏德& amp%'")
strSQL = strSQL & ampIIF(Easp_isN(strUserName),“,”和用戶名如“%”& amp;strUserName & amp%'")
strSQL = strSQL & ampIIF(Easp_isN(strRoleID),"","和InStr('|'+RoleID+'| ',' | " & ampstrRoleID & amp| ')& gt;0")
函數IIF(ByVal Cn,ByVal T,ByVal F)
如果Cn那麽IIF = T否則IIF = F結束If
結束功能
函數Easp_isN(ByVal字符串)
Easp_isN = False
選擇大小寫變量類型(字符串)
事例vbEmpty,vbNull
Easp_isN = True:退出函數
案例vbString
如果str= " "那麽Easp_isN = True:退出函數
案例vbObject
如果TypeName(str)="Nothing "或TypeName(str)="Empty ",那麽Easp_isN = True : Exit函數
案例vbArray,8194,8204,8209
如果Ubound(str)=-1,那麽Easp_isN = True:退出函數
結束選擇
結束功能