Código:
procedure Tprincipal2.ComboBox7Exit(Sender: TObject);
begin
with dm1.Q_cfacturas do
begin
active:=false;
sql.clear;
sql.add('select id_cuenta, numerocta from Cfacturas');
sql.Add('where cuenta = '+#39+combobox7.text+#39);
active:=true;
first;
label114.Caption:=fieldbyname('numerocta').asstring;
if recordcount<>0 then
V_idcuenta:=fieldbyname('id_cuenta').asinteger
else
if Application.MessageBox('No se encontro la especialidad, Deseas Agregarlo?','Agregar',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
with Agrecatalogo do
begin
Visible:=true;
end;
end;
end;
El formulario Agrecatalogo es donde actualizo la tabla desde un dbgrid ahi no tengo problemas el problema es en el combo para que no me muestre datos repitidos, gracias por contestarme.