50分求助小问题!

adoquery1.Close;  
        adoquery1.SQL.Clear;  
        sql:='select   sum(Wamount)   as   amount   from   W_Table   where   Wtype='''+trim(str)+'''';  
        adoquery1.SQL.Add(sql);  
        adoquery1.Open;  
  str的取值如下:  
  str:string;  
    case   combobox1.ItemIndex   of  
        0:   begin  
                label3.Caption:='电器类财产';  
                str:='电器类财产';  
            end;  
        1:   begin  
                label3.Caption:='家具类财产';  
                str:='家具类财产';  
          end;  
  如果数据中有'电器类财产',那么就没错,如果没有这类财产,那么出错为:  
  can't   convert   variant   of   type(null)   into   type(string),怎么解决错误啊?  
  问题点数：50、回复次数：7Top

1 楼huojiehai（海天子）回复于 2003-08-03 17:33:50 得分 5

try  
      adoquery1.Open;  
  except  
      showmessage('没有找到合记录')  
  end;  
  //脱离Delphi运行就不会报错了Top

2 楼ljmanage（过客）回复于 2003-08-03 18:09:28 得分 5

str赋个初值  
  str   :=   '';Top

3 楼crystal1024（crystal）回复于 2003-08-03 18:13:52 得分 0

海天子,我试了好像不行,还是出错的!  
  Top

4 楼crystal1024（crystal）回复于 2003-08-03 18:14:52 得分 0

过客你说的我也试了..也还是出错的!Top

5 楼huojiehai（海天子）回复于 2003-08-03 20:53:18 得分 0

脱离Delphi运行了吗  
  Top

6 楼older（井底蛙同样可以向往大海）回复于 2003-08-03 21:38:35 得分 40

adoquery1.Close;  
        adoquery1.SQL.Clear;  
        if   trim(str)<>''   then  
            sql:='select   sum(Wamount)   as   amount   from   W_Table   where   Wtype='''+trim(str)     +''''  
        else  
            sql:='select   sum(Wamount)   as   amount   from   W_Table   ';  
   
        adoquery1.SQL.Add(sql);  
        adoquery1.Open;  
  Top

7 楼crystal1024（crystal）回复于 2003-08-04 09:32:27 得分 0

谢谢!Top

相关问题

• sql
• adoquery1
• wamount
• 财产
• 电器
• trim
• str
• select sum
• open
• asamountfrom w

• 帖主：crystal1024
• huojiehai
• ljmanage
• older

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载