Código Delphi [-] IBDataSet2.Close; IBDataSet2.SelectSQL.Clear; IBDataSet2.SelectSQL.Add ('select * from subcomp where cod_componente = ' + Quotedstr (DBLookupComboBox1.KeyValue) + 'and item_comp = ' + Quotedstr (DBLookupComboBox3.KeyValue)); IBDataSet2.Open; IBDataSet2.Active := True;
IBDataSet2.Close; IBDataSet2.SelectSQL.Clear; IBDataSet2.SelectSQL.Add ('select * from subcomp where cod_componente = ' + Quotedstr (DBLookupComboBox1.KeyValue) + 'and item_comp = ' + Quotedstr (DBLookupComboBox3.KeyValue)); IBDataSet2.Open; IBDataSet2.Active := True;