DataSource que hacen lo mismo

[Phacko]

Que tal, gracias por responder.

Disculpa lo confuso de mi texto.

Tengo 3 DBGrid en un form y 3 DataSource, uno por cada DBGrid, y en un DataModule tengo 3 Query, uno por tabla, a los cuales accedo desde la form mencionada, de la siguiente forma:

dataModule1.QProducto.Close;
DataModule1.QProducto.SQL.Clear;
DataModule1.QProducto.SQL.Add('Select Producto, Existencia From "TProducto.db"');
DataModule1.QProducto.SQL.Add('where Upper(Origen)="RES"');
DataModule1.QProducto.Open;


dataModule1.QProducto.Close;
DataModule1.QProducto.SQL.Clear;
DataModule1.QProducto.SQL.Add('Select Producto, Existencia From "TProducto.db"');
DataModule1.QProducto.SQL.Add('where Upper(Origen)="CERDO"');
DataModule1.QProducto.Open;


dataModule1.QProducto.Close;
DataModule1.QProducto.SQL.Clear;
DataModule1.QProducto.SQL.Add('Select Producto, Existencia From "TProducto.db"');
DataModule1.QProducto.SQL.Add('where Not Upper(Origen)="RES"');
DataModule1.QProducto.SQL.Add('And Not Upper(Origen)="CERDO"');
DataModule1.QProducto.Open;


Repito mucho codigo, porque trate de hacerlo indepenciente para probar si se corregia el error, pero...., todo este codigo se ejecuta al momento de activar el form en tiempo de ejecución.

Estas 3 consultas son a una misma tabla, en la que estan todos los registros del producto. Y enlazo cada DBGrid al mismo Query (QProducto) mediante DataSource diferentes.

Espero sea un poco mas claro. Nuevamente gracias por tu tiempo.