Código Delphi
[-]form2.query_consulta_pc.Close;
form2.query_consulta_pc.SQL.Clear;
form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
form2.query_consulta_pc.Execute;
for buscar := 0 to form2.query_consulta_pc.FieldCount do
begin
form2.query_consulta_pc.SQL.Clear;
form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
form2.query_consulta_pc.Execute;
a:= Articulos_Compuestos.gridproductos.RowCount;
Articulos_Compuestos.gridproductos.RowCount := a +1;
Articulos_Compuestos.gridproductos.Cells[ 0, a ] := form2.query_consulta_pc.FieldByName('cod_terminado').AsString ;
form2.query_consulta_pc.Next;
end;
me podrian ayudar no se q estoy haciendo. tengo una tabla prooducto_compuesto. alli guardo de la siguiente manera:
Cod_ compuesto codigo terminado
1 123
1 345
1 456
y qye me llene el grid con todos los codigos terminados que corresponden al codigo compuesto