Mostrar Registros Mayor que

[lKinGl]

Disculpen por no poner el código antes tengo este código que funciona con 3 radiobuttons en un radiogroup y cuando selecciono uno muestra los resultados obtenidos en un dbgrid

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';
  end;

[lKinGl]

ya lo he intentado de la forma en que dice el amigo enecumene y el amigo Caral y da error type mismacht algo asi

[[Caral]]

Hola
Que tipo de campo es Cantidad???.
Saludos

[lKinGl]

En la tabla paradox 7 Stkart es de tipo Integer

[[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

[[enecumene]]

Empezado por lKinGl

ya lo he intentado de la forma en que dice el amigo enecumene y el amigo Caral y da error type mismacht algo asi

Está indicando que hay una diferencia en el tipo de campo entre el campo persistente del dataset y la base de dato. Intenta cargar de nuevo los persistentes del Dataset.

Saludos.

[[Caral]]

Hola
No entiendo, funciona, no funciona, lo modificaste, necesitas algo mas??.
Saludos

[lKinGl]

no funciona amigo dice error type mismatch