不太明白什么意思...
query1.sql.text := 'select * from table';
query1.open;
for i := query1.fieldcount -1 do
begin
if query1.fields is TStringField then
combobox1.items.add('字符型');
if query1.fields is TDateTimeField then
combobox1.items.add('日期型');
acess不太熟,通过DATASET也可以达到,
for i:=0 to dataset.Fields.Count-1 do
begin
if dataset.field is tstringfield then
begin
if combox1.text='字符型' then
combox2.add(dataset.field.fieldname)
end
else if dataset.field is tbcdfield then
begin
end.....