Ver Mensaje Individual
  #1  
Antiguo 10-09-2008
lKinGl lKinGl is offline
Miembro
 
Registrado: ago 2007
Posts: 333
Reputación: 19
lKinGl Va por buen camino
Exclamation Combobox, Tablas, Códigos duplicados

salu2 amigos foristas.-

tengo un formulario el cual se llena mediante un combobox que carga los código (campo de tabla paradox 7), y cuando selecciono 1 se carga la informacion correspondiente, bien el problema surge cuando tengo 2 códigos iguales en la tabla pero de diferente hora.... facilito el código para mayor entendimiento de mi caso.

Código Delphi [-]
procedure TForm17.ComboBox1Change(Sender: TObject);
begin
if form1.Table7.Locate('cod_prov',ComboBox1.Text,[])  and form1.Table7.Locate('hor_pla',ComboBox1.,[]) then
  begin
    edit1.Text:=form1.Table7.FieldValues['nom_prov'];
    edit2.Text:=form1.Table7.FieldValues['observacion'];
    edit4.Text:=form1.Table7.FieldValues['hor_pla'];
    edit3.Text:=form1.Table7.FieldValues['gro_pla'];
    SpinEdit1.MaxValue:=form1.Table7.FieldValues['can1'];
    edit5.Text:=form1.Table7.FieldValues['can2'];
    BitBtn1.Enabled:=true;
    BitBtn7.Enabled:=true;
    BitBtn8.Enabled:=true;
  end
  else
  begin
    Application.MessageBox('Erro Grave','');
    exit;
  end;
end;

ok como vemos al elegir un item del combobox se carga correctamente la ifnormacion de x registro, pero cuando hay 2 o mas registros con el mismo código y selecciono el item(duplicado) del combobox me muestra la informacion del primero que encuentre en el escaneo de la tabla

la pregunta es:

si tengo 2 códigos duplicados(Necesario) de diferentes datos (Hora) ¿que debo hacer para que cargue el que es y no el que primero consiga?


gracias adelantadas...
Responder Con Cita