dim rec as adodb.recortset
set rec=new adodb.recordset
rec.open "Select IsNull(Salary14,0)/IsNull(Salary20,0)*IsNull(Days,0)*(CASE WHEN IsNull(Salary2,0)=0 THEN 1 ELSE IsNull(Salary2,0) END) From V_SA_SalaryDetail Where (MonthName='2002-11') AND (EmpID=100009)",cnCloud 

解决方案 »

  1.   

    dim rec as new recortset
      

  2.   

    问题应该不在这里,rec.open是在一个循环中,rec早就声明了,而且前面几次循环也能通过,到这一行就不行了。V_SA_SalaryDetail中这些字段也都有。
      

  3.   

    试试这个方法:cnCloud.Execute "SET NOCOUNT ON "rec.open "Select IsNull(Salary14,0)/IsNull(Salary20,0)*IsNull(Days,0)*(CASE WHEN IsNull(Salary2,0)=0 THEN 1 ELSE IsNull(Salary2,0) END) From V_SA_SalaryDetail Where (MonthName='2002-11') AND (EmpID=100009)",cnCloud