var dd:string;
begin
DD:=combobox1.Text+'-'+combobox2.Text+'-'+combobox3.text;
try
strtodate(DD)
except
showmessage('日期转换错误!');
Exit;
end
adotable1.FieldByName('datetime').AsString:=DD;
end;
加条件
if adoquery1.fieldbyname('table').asstring='' then
Exit
else
combobox1.items.add(adoquery1.fieldbyname('table').asstring);
或者
adoquery1.sql.text:=
'select table from your_table_name where table is not null';