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;
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;
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
cboxFamily.Items.Add(tblFamily.FieldByName('Nombre_Del_Campo').AsString);
tblFamily.Next; 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'