Ver Mensaje Individual
  #6  
Antiguo 19-05-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Reputación: 23
sanxpue Va por buen camino
Unhappy Haber Haber

Código Delphi [-]
Procedure TfrmManproductos.CargaFamilia;
begin
  FrmManproductos.tblFamily.Open;
  FrmManproductos.tblFamily.First;
  while not FrmManproductos.tblFamily.Eof do
  begin
    FrmManproductos.cboxFamily.Items.Add(FrmManproductos.qryFamily.Fields[0].AsString);
    FrmManproductos.tblFamily.close;
  end;
  //FrmManproductos.tblFamily.close;
end;

procedure TfrmManproductos.CargaProveedor;
begin
FrmManproductos.tblProvee.Open;
FrmManproductos.tblProvee.first;
while not FrmManproductos.tblFamily.Eof do
begin
FrmManproductos.cboxProvee.Items.Add(FrmManproductos.qryProvee.Fields[0].asString);
FrmManproductos.tblProvee.close;
end;
//FrmManproductos.tblProvee.Close;
end;

Esta medio rara la cosa deberia de quedar ma o menos asi

Código Delphi [-]
Procedure TfrmManproductos.CargaFamilia;
begin
  tblFamily.Open;
  tblFamily.First;
  while not tblFamily.Eof do
  begin
    //Aqui por que llamas a un query???
    //FrmManproductos.cboxFamily.Items.Add(FrmManproductos.qryFamily.Fields[0].AsString);
 //Aqui por que la cierras ???
  //    FrmManproductos.tblFamily.close; 
    cboxFamily.Items.Add(tblFamily.FieldByName('Nombre_Del_Campo').AsString);
    tblFamily.Next; //Para que te de el siguiente registro
  end;
end;

Ya nada mas el otro lo acomodas bien
__________________
saludos desde Puebla Mexico..
[email protected]
"como siempre a sus ordenes y siempre con buena cara"
'lolita me excitas, perversa piel de melocotón'

Última edición por sanxpue fecha: 20-05-2004 a las 01:18:59.
Responder Con Cita