Sql = "select distinct op_dept from GLB_OPE_FINAL2 where op_model = '" + model + "'"
rs1.Open Sql, mycon
If Not IsNull(rs1.Fields(0)) Then
dept = CStr(rs1.Fields(0))//沒有結果卻進了if塊
End If
rs1.Close
rs1.Open Sql, mycon
If Not IsNull(rs1.Fields(0)) Then
dept = CStr(rs1.Fields(0))//沒有結果卻進了if塊
End If
rs1.Close
先看看 len(XXX)=多少,再上面写上len(XXX) < Y
這是爲什麽?
rs1.Fields.Count > 0我感到出问题的不是进入IF,而且
IsNull(rs1.Fields(0))
出了问题