limpiar combobox

[m8estrella83]

Hola !

Tengo un combobox con dos opciones, y un DBgrid que muestra los resultados de un query, y necesito que cuando den doble clic sobre un registro, el combobox muestre el dato que le corresponde del query yo puse el siguiente codigo.

Código Delphi [-]
if query1.fieldbyname('lista').asstring <> '' then
begin

 if query1.fieldbyname('lista').asstring = 'V' then
   begin
   combobox2.ItemIndex:=0;
   end;

 if query1.fieldbyname('lista').asstring = 'VM' then
   begin
   combobox2.ItemIndex:=1;
   end;

end
else
 begin
 combobox2.Text:='';
 end;

Si muestra los datos en el combobox, pero si algún registro tiene el campo "lista" vacío el combobox se limpia y cuando vuelvo a dar clic a otro registro que si tiene el dato este no aparece en el combobox.


no he podido saber cual es el problema.

espero me puedan ayudar se los agradecería mucho.

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[m8estrella83]

Ups !!!


Perdon

[ecfisa]

Hola.

Creo que debería ser:

Código Delphi [-]
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  with DBGrid1.DataSource.DataSet do
     if FieldByName('lista').AsString = 'V' then
       ComboBox1.ItemIndex := 0
     else if FieldByName('lista').AsString ='VM' then
       ComboBox1.ItemIndex := 1
     else
       ComboBox1.ItemIndex := -1;
end;

Saludos.