急!!各位大虾帮帮忙!!谢谢

                            
function   GetOrdersList(vFlag:integer;vStr:string):TStringList;   
  var  
      vOrdersList:TStringList;  
      sqlStr:string;  
  begin    
      vOrdersList:=TStringList.Create;  
      case   vFlag   of  
          0:sqlStr:='select   S_O_SERIAL   from   Orders   O,Manufactory   M   where   O.S_O_C_ID=M.M_ID   AND   S_O_TYPE=1   AND   S_O_EXIST=0   and   M_NAME='''+vStr+'''';  
          1:sqlStr:='select   S_O_SERIAL   from   Orders   O,Manufactory   M   where   O.S_O_C_ID=M.M_ID   AND   S_O_TYPE=2   AND   S_O_EXIST=0   and   M_NAME='''+vStr+'''';  
          2:sqlStr:='select   S_O_SERIAL   from   Orders   O,Customers   C   where   O.S_O_C_ID=C.C_ID   AND   S_O_TYPE=3   AND   S_O_EXIST=0   and   C_NAME='''+vStr+'''';  
          3:sqlStr:='select   S_O_SERIAL   from   Orders   O,Customers   C   where   O.S_O_C_ID=C.C_ID   AND   S_O_TYPE=4   AND   S_O_EXIST=0   and   C_NAME='''+vStr+'''';  
          5:sqlStr:='select   S_O_SERIAL   from   Orders   O,Customers   C   where   O.S_O_C_ID=C.C_ID   AND   S_O_TYPE=3   AND   S_O_EXIST=0   and   C_NAME='''+vStr+'''';  
        end;  
      with   DM.HumanResQuery   do   begin  
          Close;  
          SQL.Clear;  
          SQL.Add(sqlStr);  
          Open;  
          while   not   Eof   do   begin  
              vOrdersList.Add(FieldValues['S_O_SERIAL']);  
              Next;  
          end;  
      end;  
      GetOrdersList:=vOrdersList;  
  end;  
   
   
  procedure   TPAnalyseForm.ComboBox1Change(Sender:   TObject);  
  begin  
      Combobox3.Items.Clear;  
      Combobox3.Items.AddStrings(GetOrdersList(RadioGroup2.ItemIndex,Combobox1.Text));  
  end;  
   
  请问各位大虾为什么Combobox3的值怎么赋不进去的!?

查看回复