Mostrar Registros Mayor que

[[Caral]]

Hola
Como dice enecumene, puede que en algun momento cambiaras el tipo de dato, recarga el dataset y veremos que pasa.
La operacion tal como la pusimos es para un campo integer, no creo que sea ese el problema.
Saludos

[lKinGl]

Código del Radiogroup1

Código Delphi [-]
procedure TForm7.RadioGroup1Click(Sender: TObject);
var
buscar:string;
begin
if RadioGroup1.ItemIndex=0 then
edit1.enabled:=true;
edit1.Clear;
dbgrid1.Enabled:=true;
if radiogroup1.ItemIndex=1 then
edit1.enabled:=true;
edit1.clear;
dbgrid1.Enabled:=true;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;

Código del edit1 (mi filtro de informacion)

Código Delphi [-]
procedure TForm7.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= 10';
end;
  Query1.SQL.Clear;
  Query1.SQL.Add(buscar);
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=50;
  dbgrid1.Columns.Items[1].Width:=200;
  dbgrid1.Columns.Items[2].Width:=90;
  dbgrid1.Columns.Items[3].Width:=60;
  dbgrid1.Columns[0].Title.caption:='Código';
  dbgrid1.Columns[1].Title.caption:='Nombre del Articulo';
  dbgrid1.Columns[2].Title.caption:='PVP';
  dbgrid1.Columns[3].Title.caption:='Existencia';
end;

el error da apenas presiono el radiobutton 3 (Cantidad)=Stkart

[[enecumene]]

¿Por casualidad sabes lo que son los campos persistentes?, son aquellos campos que agregas cuando le das doble click al query, lo que tienes que hacer es, primero poner en False el dataset, dar doble click al dataset, borrar los campos agregados, poner en true, luego agregar los campos de nuevo y ponerlo otra vez a False. Intentalo.

Saludos.

[[Caral]]

Hola
No veo el error, intenta esto:

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=10';

Saludos

[lKinGl]

Caral ese es exactamente el código que tenia pero sigue dando el error type mismatch

creo que el error puede estar en que la variable buscar es tipo string y stkart en integer

intenté declarar una variable buscar2:integer; pero nisiquiera corrió el programa

si ese es el error no tengo idea como solucionarlo

[[Caral]]

Hola
Ese no es el problema
Buscar tiene que ser string.
El problema esta en que el dato 10 no coincide con el campo, por lo menos es lo que imagino.
Tienes que probar con otro dato.
Ejemplo, pon en vez de 10 el edit y en este pones el numero 10.
Si funciona el dato busca un string.
Saludos

[lKinGl]

intenté con este código pero nada!

Código Delphi [-]
var
buscar,valor:string;
begin
valor:=inttostr(10);
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart<=valor "';
end;

[[Caral]]

Hola
Asi:

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

Saludos

[lKinGl]

Ahora intente con el código de caral

Código Delphi [-]
case RadioGroup1.ItemIndex of  
0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';  
1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';  
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

pero ahora da un error distinto que dice invalid use of keyword token: <= creo que ya casi va a funcionar jejeje