ADOQUERY。SQL。TEXT:=‘SELECT DEPARTMENT。部门名称 POSITION。职位名称 FROM DEPARTMENT,POSITION WHERE DEPARTMENT。关联字段=POSITION。关联字段 ’ WITH NOT ADOQUERY1。EOF DO BEGIN COMBOBOX1。ITEM。ADD(ADOQUERY1。FIELDBYNAME(‘部门名称’)。ASSTRING); NEXT; END; WITH NOT ADOQUERY1。EOF DO BEGIN COMBOBOX2。ITEM。ADD(ADOQUERY1。FIELDBYNAME(‘职位名称’)。ASSTRING); NEXT; END; 是这个意识吗?
用动态SQL: procedure tform1.button1(); begin with adoquery1 do begin close; clear; sql.add('select * from Position); open; first; edit; while not eof do begin combox1.items.add(fieldbyname(' 部门名称').asstring; next; edit; end; end; with adoquery1 do begin close; clear; sql.add('select * from Department'); open; first; edit; while not eof do begin combox2.items.add(fieldbyname(' 职位名称).asstring; next; edit; end; end; end;
combox2 <-> adoquery1 <-> SELECT 职位名称 FROM Position关键是: 你的这两表是如何关联的,还是不明白你要干什麽?
实在不行,贴出你的表结构...
WITH NOT ADOQUERY1。EOF DO
BEGIN
COMBOBOX1。ITEM。ADD(ADOQUERY1。FIELDBYNAME(‘部门名称’)。ASSTRING);
NEXT;
END;
WITH NOT ADOQUERY1。EOF DO
BEGIN
COMBOBOX2。ITEM。ADD(ADOQUERY1。FIELDBYNAME(‘职位名称’)。ASSTRING);
NEXT;
END;
是这个意识吗?
procedure tform1.button1();
begin
with adoquery1 do
begin
close;
clear;
sql.add('select * from Position);
open;
first;
edit;
while not eof do
begin
combox1.items.add(fieldbyname(' 部门名称').asstring;
next;
edit;
end;
end;
with adoquery1 do
begin
close;
clear;
sql.add('select * from Department');
open;
first;
edit;
while not eof do
begin
combox2.items.add(fieldbyname(' 职位名称).asstring;
next;
edit;
end;
end;
end;