绑定 ComboBox的问题
过程声明 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; '工种 '; '工种表 ');

各位帮我看看好不好 谢谢了

[解决办法]
com.Items.Add(data1.ADOQuery1.FieldByName( 'a '));
应该是
com.Items.Add(data1.ADOQuery1.FieldByName(a));
[解决办法]
上面说过的我就不说了!

就你贴出来的地方:
frm_xygdjb.b_com(ComboBox3; '工种 '; '工种表 ');
调用的时候是逗号 ", "不是分号 "; ".

第二个错误肯定是写的时候什么地方漏了分号 "; ".

还有,你的Query都没有执行. ADOQuery1.Open;