hola amigos del club
tengo un mantenedor de productos, en los cuales tengo 2 combo box:
familia y proveedor, estos tienen sus respectivos codigos a elegir, pero al compilar me da el sigte error "list index out bounds(0)".
estoy guardando, eliminando y modificando con procedimientos almacenados.
este es el codigo que estoy utilizando para los combos:
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;
he intentado todo, pero no he conseguido nada....
por favor espero sus comentarios....