绑定 ComboBox的问题

Question

过程声明  procedure b_com(com:TComboBox;a:string;b:string);
过程实现  procedure Tfrm_xygdjb.b_com(com:TComboBox;a:string;b:string);
begin
  com.Clear;
  with data1.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct '+a+' from '+b);
  open;
  end;
  while Not data1.ADOQuery1.Eof do
  begin
    com.Items.Add(data1.ADOQuery1.FieldByName('a'));
     Data1.ADOQuery1.Next;
  end;
end;过程调用 frm_xygdjb.b_com(ComboBox3;'工种';'工种表'); 各位帮我看看好不好  谢谢了

Answer 1

过程声明    procedure  b_com(com:TComboBox;a:string;b:string);  
过程实现    procedure  Tfrm_xygdjb.b_com(com:TComboBox;a:string;b:string);  
begin  
   com.Clear;  
   with  data1.ADOQuery1  do  
   begin  
       close;  
       sql.Clear;  
       sql.Add('select  distinct  '+a+'  from  '+b);  
   open;  
   end;  
   while  Not  data1.ADOQuery1.Eof  do  
   begin  
       com.Items.Add(data1.ADOQuery1.FieldByName('a'));  
         Data1.ADOQuery1.Next;  
   end;  
end;  
 
过程调用  frm_xygdjb.b_com(ComboBox3;'工种';'工种表');     //错误提示处   
 
各位帮我看看好不好    谢谢了 
好象是参数取值问题提示: 1. Not enough actual parameter
      2. Satament expected but expression of the Type 'String' Found

Answer 2

sql 语句生成有问题，
showmessage(sql.text);

Answer 3

com.Items.Add(data1.ADOQuery1.FieldByName('a'));  
应该是
com.Items.Add(data1.ADOQuery1.FieldByName(a));

Answer 4

com.Items.Add(data1.ADOQuery1.FieldByName('a'));  
改成
com.Items.Add(data1.ADOQuery1.FieldByName(a).AsString);

Answer 5

com.Items.Add(data1.ADOQuery1.FieldByName('a'));  
改成
com.Items.Add(data1.ADOQuery1.FieldByName(a).AsString);
还是不行啊  麻烦大家再帮我看看好不

Answer 6

上面说过的我就不说了!就你贴出来的地方: 
   frm_xygdjb.b_com(ComboBox3;'工种';'工种表');
   调用的时候是逗号","不是分号";".   第二个错误肯定是写的时候什么地方漏了分号";".   还有,你的Query都没有执行. ADOQuery1.Open;