Filtro en dbgrid

[gianfranco_tont]

no! uso el dbgrid para atravez del clientdataset me proveea una tabla temporal para luego al finalizar guardar la informacion en la tabla correspodiente. el picklist lo necesito para armar la informacion del tada set,te explico es como un from de factura. Armo el detalle de la factura y luego la guardo.

[gianfranco_tont]

Código Delphi [-]
AdoQuerytipo.SQL.Text := 'Select co_tipo,des_tipo From tipo_aju '; // selecciono el nombre de la tabla usuarios
   AdoQuerytipo.Active := True; // activo el sql
   While not AdoQuerytipo.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuerytipo.Next; // sigo insertando hasta que encuentre el ultimo
   end;
    AdoQuerytipo.Active := False;  // cierro la consulta
    if ClientDataSet1.State in [dsEdit, dsInsert] then

Fijate en el select estoy cargando la informacion en el picklist 'Select co_tipo,des_tipo From tipo_aju' pero en el picklist solo puedo selecionar una forma de guardar ' DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0]' aunque puedo escojer entre .Fields[0] y el .Fields[1], yo quiero que se vean ambos pero al selecionar la linea en el picklist solo me pase al grid o client data set el .Fields[0],

[gianfranco_tont]

te mando el codigo completo para ver si me puedes ayudar tambien porque cuando salgo del from se me queda colgado el programa creo que tiene algo que ver con el clientdata set edit o incert.

Código Delphi [-]
unit Unitajuste;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Provider, DBClient, Grids, DBGrids, StdCtrls, ToolWin,
  ActnMan, ActnCtrls, Ribbon, RibbonLunaStyleActnCtrls, Buttons, pngimage,
  ExtCtrls, ActnList, ImgList, PlatformDefaultStyleActnCtrls, ComCtrls, Menus,
  DBCtrls;
  const
  nif_info = $10;

type
tnotifyicons = (niif_none, niif_info, niif_warning, niif_error, niif_user);
    TFormAjuste = class(TForm)
    Ribbon1: TRibbon;
    RibbonPage1: TRibbonPage;
    RibbonGroup1: TRibbonGroup;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit4: TEdit;
    Image1: TImage;
    Label4: TLabel;
    Image2: TImage;
    Label5: TLabel;
    Image3: TImage;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    BalloonHint1: TBalloonHint;
    TrayIcon1: TTrayIcon;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    ActionToolBar1: TActionToolBar;
    Action1: TAction;
    Action2: TAction;
    ADOQueryenc_aju: TADOQuery;
    ADOQueryenc_ajuajue_num: TIntegerField;
    ADOQueryenc_ajufecha: TDateTimeField;
    ADOQueryenc_ajumotivo: TStringField;
    ADOQueryenc_ajutotal: TFMTBCDField;
    ADOQueryenc_ajuseriales: TIntegerField;
    ADOQueryenc_ajufeccom: TDateTimeField;
    ADOQueryenc_ajunumcom: TIntegerField;
    ADOQueryenc_ajutasa: TFMTBCDField;
    ADOQueryenc_ajumoneda: TStringField;
    ADOQueryenc_ajudis_cen: TMemoField;
    ADOQueryenc_ajucampo1: TStringField;
    ADOQueryenc_ajucampo2: TStringField;
    ADOQueryenc_ajucampo3: TStringField;
    ADOQueryenc_ajucampo4: TStringField;
    ADOQueryenc_ajucampo5: TStringField;
    ADOQueryenc_ajucampo6: TStringField;
    ADOQueryenc_ajucampo7: TStringField;
    ADOQueryenc_ajucampo8: TStringField;
    ADOQueryenc_ajuco_us_in: TStringField;
    ADOQueryenc_ajufe_us_in: TDateTimeField;
    ADOQueryenc_ajuco_us_mo: TStringField;
    ADOQueryenc_ajufe_us_mo: TDateTimeField;
    ADOQueryenc_ajuco_us_el: TStringField;
    ADOQueryenc_ajufe_us_el: TDateTimeField;
    ADOQueryenc_ajurevisado: TStringField;
    ADOQueryenc_ajutrasnfe: TStringField;
    ADOQueryenc_ajuco_sucu: TStringField;
    ADOQueryenc_ajurowguid: TGuidField;
    ADOQueryenc_ajuanulada: TBooleanField;
    ADOQueryenc_ajuaux01: TFMTBCDField;
    ADOQueryenc_ajuaux02: TStringField;
    ADOQueryenc_ajuproduccion: TBooleanField;
    ADOQueryenc_ajuimp_num: TIntegerField;
    ADOQueryenc_ajufact_num: TIntegerField;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    ADOQuery1: TADOQuery;
    ADOQuery1co_art: TStringField;
    ADOQuery1art_des: TStringField;
    ADOQuery1fecha_reg: TDateTimeField;
    ADOQuery1manj_ser: TBooleanField;
    ADOQuery1co_lin: TStringField;
    ADOQuery1co_cat: TStringField;
    ADOQuery1co_subl: TStringField;
    ADOQuery1co_color: TStringField;
    ADOQuery1item: TStringField;
    ADOQuery1ref: TStringField;
    ADOQuery1modelo: TStringField;
    ADOQuery1procedenci: TStringField;
    ADOQuery1comentario: TMemoField;
    ADOQuery1co_prov: TStringField;
    ADOQuery1ubicacion: TStringField;
    ADOQuery1uni_venta: TStringField;
    ADOQuery1uni_compra: TStringField;
    ADOQuery1uni_relac: TFMTBCDField;
    ADOQuery1relac_aut: TIntegerField;
    ADOQuery1stock_act: TFMTBCDField;
    ADOQuery1stock_com: TFMTBCDField;
    ADOQuery1sstock_com: TFMTBCDField;
    ADOQuery1stock_lle: TFMTBCDField;
    ADOQuery1sstock_lle: TFMTBCDField;
    ADOQuery1stock_des: TFMTBCDField;
    ADOQuery1sstock_des: TFMTBCDField;
    ADOQuery1suni_venta: TStringField;
    ADOQuery1suni_compr: TStringField;
    ADOQuery1suni_relac: TBCDField;
    ADOQuery1sstock_act: TFMTBCDField;
    ADOQuery1relac_comp: TFMTBCDField;
    ADOQuery1relac_vent: TFMTBCDField;
    ADOQuery1pto_pedido: TFMTBCDField;
    ADOQuery1stock_max: TFMTBCDField;
    ADOQuery1stock_min: TFMTBCDField;
    ADOQuery1prec_om: TBooleanField;
    ADOQuery1prec_vta1: TFMTBCDField;
    ADOQuery1fec_prec_v: TDateTimeField;
    ADOQuery1fec_prec_2: TDateTimeField;
    ADOQuery1prec_vta2: TFMTBCDField;
    ADOQuery1fec_prec_3: TDateTimeField;
    ADOQuery1prec_vta3: TFMTBCDField;
    ADOQuery1fec_prec_4: TDateTimeField;
    ADOQuery1prec_vta4: TFMTBCDField;
    ADOQuery1fec_prec_5: TDateTimeField;
    ADOQuery1prec_vta5: TFMTBCDField;
    ADOQuery1prec_agr1: TFMTBCDField;
    ADOQuery1prec_agr2: TFMTBCDField;
    ADOQuery1prec_agr3: TFMTBCDField;
    ADOQuery1prec_agr4: TFMTBCDField;
    ADOQuery1prec_agr5: TFMTBCDField;
    ADOQuery1can_agr: TFMTBCDField;
    ADOQuery1fec_des_p5: TDateTimeField;
    ADOQuery1fec_has_p5: TDateTimeField;
    ADOQuery1co_imp: TStringField;
    ADOQuery1margen_max: TBCDField;
    ADOQuery1ult_cos_un: TFMTBCDField;
    ADOQuery1fec_ult_co: TDateTimeField;
    ADOQuery1cos_pro_un: TFMTBCDField;
    ADOQuery1fec_cos_pr: TDateTimeField;
    ADOQuery1cos_merc: TFMTBCDField;
    ADOQuery1fec_cos_me: TDateTimeField;
    ADOQuery1cos_prov: TFMTBCDField;
    ADOQuery1fec_cos_p2: TDateTimeField;
    ADOQuery1ult_cos_do: TFMTBCDField;
    ADOQuery1fec_cos_do: TDateTimeField;
    ADOQuery1cos_un_an: TFMTBCDField;
    ADOQuery1fec_cos_an: TDateTimeField;
    ADOQuery1ult_cos_om: TFMTBCDField;
    ADOQuery1fec_ult_om: TDateTimeField;
    ADOQuery1cos_pro_om: TFMTBCDField;
    ADOQuery1fec_pro_om: TDateTimeField;
    ADOQuery1tipo_cos: TStringField;
    ADOQuery1mont_comi: TBCDField;
    ADOQuery1porc_cos: TBCDField;
    ADOQuery1mont_cos: TBCDField;
    ADOQuery1porc_gas: TBCDField;
    ADOQuery1mont_gas: TBCDField;
    ADOQuery1f_cost: TDateTimeField;
    ADOQuery1fisico: TBooleanField;
    ADOQuery1punt_cli: TBCDField;
    ADOQuery1punt_pro: TBCDField;
    ADOQuery1dias_repos: TIntegerField;
    ADOQuery1tipo: TStringField;
    ADOQuery1alm_prin: TStringField;
    ADOQuery1anulado: TBooleanField;
    ADOQuery1tipo_imp: TStringField;
    ADOQuery1dis_cen: TMemoField;
    ADOQuery1mon_ilc: TFMTBCDField;
    ADOQuery1capacidad: TBCDField;
    ADOQuery1grado_al: TBCDField;
    ADOQuery1tipo_licor: TStringField;
    ADOQuery1compuesto: TBooleanField;
    ADOQuery1picture: TBlobField;
    ADOQuery1campo1: TStringField;
    ADOQuery1campo2: TStringField;
    ADOQuery1campo3: TStringField;
    ADOQuery1campo4: TStringField;
    ADOQuery1campo5: TStringField;
    ADOQuery1campo6: TStringField;
    ADOQuery1campo7: TStringField;
    ADOQuery1campo8: TStringField;
    ADOQuery1co_us_in: TStringField;
    ADOQuery1fe_us_in: TDateTimeField;
    ADOQuery1co_us_mo: TStringField;
    ADOQuery1fe_us_mo: TDateTimeField;
    ADOQuery1co_us_el: TStringField;
    ADOQuery1fe_us_el: TDateTimeField;
    ADOQuery1revisado: TStringField;
    ADOQuery1trasnfe: TStringField;
    ADOQuery1co_sucu: TStringField;
    ADOQuery1rowguid: TGuidField;
    ADOQuery1tuni_venta: TStringField;
    ADOQuery1equi_uni1: TFMTBCDField;
    ADOQuery1equi_uni2: TFMTBCDField;
    ADOQuery1equi_uni3: TFMTBCDField;
    ADOQuery1lote: TBooleanField;
    ADOQuery1serialp: TStringField;
    ADOQuery1valido: TBooleanField;
    ADOQuery1atributo1: TBooleanField;
    ADOQuery1vatributo1: TStringField;
    ADOQuery1atributo2: TBooleanField;
    ADOQuery1vatributo2: TStringField;
    ADOQuery1atributo3: TBooleanField;
    ADOQuery1vatributo3: TStringField;
    ADOQuery1atributo4: TBooleanField;
    ADOQuery1vatributo4: TStringField;
    ADOQuery1atributo5: TBooleanField;
    ADOQuery1vatributo5: TStringField;
    ADOQuery1atributo6: TBooleanField;
    ADOQuery1vatributo6: TStringField;
    ADOQuery1garantia: TStringField;
    ADOQuery1peso: TFMTBCDField;
    ADOQuery1pie: TFMTBCDField;
    ADOQuery1margen1: TBCDField;
    ADOQuery1margen2: TBCDField;
    ADOQuery1margen3: TBCDField;
    ADOQuery1margen4: TBCDField;
    ADOQuery1margen5: TBCDField;
    ADOQuery1row_id: TBytesField;
    ADOQuery1imagen1: TStringField;
    ADOQuery1imagen2: TStringField;
    ADOQuery1i_art_des: TStringField;
    ADOQuery1uni_emp: TStringField;
    ADOQuery1rel_emp: TFMTBCDField;
    ADOQuery1movil: TBooleanField;
    ADOQuery1tot_costo: TFMTBCDField;
    ADOQuerytipo: TADOQuery;
    ADOQuerycodigo: TADOQuery;
    DataSourcecodigo: TDataSource;
    ADOTable1ajue_num: TIntegerField;
    ADOTable1reng_num: TIntegerField;
    ADOTable1art_desc: TMemoField;
    ADOTable1tipo: TStringField;
    ADOTable1co_art: TStringField;
    ADOTable1total_art: TFMTBCDField;
    ADOTable1uni_compra: TStringField;
    ADOTable1stotal_art: TFMTBCDField;
    ADOTable1suni_compr: TStringField;
    ADOTable1co_alma: TStringField;
    ADOTable1cost_unit_om: TFMTBCDField;
    ADOTable1cost_unit: TFMTBCDField;
    ADOTable1feccom: TDateTimeField;
    ADOTable1numcom: TIntegerField;
    ADOTable1uni_venta: TStringField;
    ADOTable1suni_venta: TStringField;
    ADOTable1cos_pro_un: TFMTBCDField;
    ADOTable1ult_cos_om: TFMTBCDField;
    ADOTable1cos_pro_om: TFMTBCDField;
    ADOTable1rowguid: TGuidField;
    ADOTable1total_uni: TFMTBCDField;
    ADOTable1nro_lote: TStringField;
    ADOTable1fec_lote: TDateTimeField;
    ADOTable1pendiente2: TFMTBCDField;
    ADOTable1tipo_doc2: TStringField;
    ADOTable1reng_doc2: TIntegerField;
    ADOTable1num_doc2: TIntegerField;
    ADOTable1aux01: TFMTBCDField;
    ADOTable1aux02: TStringField;
    ADOTable1mo_cant: TFMTBCDField;
    ADOTable1gf_cant: TFMTBCDField;
    ADOTable1mo_cant_om: TFMTBCDField;
    ADOTable1gf_cant_om: TFMTBCDField;
    ADOTable1produccion: TBooleanField;
    ADOTable1Total: TFMTBCDField;
    ClientDataSet1ajue_num: TIntegerField;
    ClientDataSet1reng_num: TIntegerField;
    ClientDataSet1art_desc: TMemoField;
    ClientDataSet1tipo: TStringField;
    ClientDataSet1co_art: TStringField;
    ClientDataSet1total_art: TFMTBCDField;
    ClientDataSet1uni_compra: TStringField;
    ClientDataSet1stotal_art: TFMTBCDField;
    ClientDataSet1suni_compr: TStringField;
    ClientDataSet1co_alma: TStringField;
    ClientDataSet1cost_unit_om: TFMTBCDField;
    ClientDataSet1cost_unit: TFMTBCDField;
    ClientDataSet1feccom: TDateTimeField;
    ClientDataSet1numcom: TIntegerField;
    ClientDataSet1uni_venta: TStringField;
    ClientDataSet1suni_venta: TStringField;
    ClientDataSet1cos_pro_un: TFMTBCDField;
    ClientDataSet1ult_cos_om: TFMTBCDField;
    ClientDataSet1cos_pro_om: TFMTBCDField;
    ClientDataSet1rowguid: TGuidField;
    ClientDataSet1total_uni: TFMTBCDField;
    ClientDataSet1nro_lote: TStringField;
    ClientDataSet1fec_lote: TDateTimeField;
    ClientDataSet1pendiente2: TFMTBCDField;
    ClientDataSet1tipo_doc2: TStringField;
    ClientDataSet1reng_doc2: TIntegerField;
    ClientDataSet1num_doc2: TIntegerField;
    ClientDataSet1aux01: TFMTBCDField;
    ClientDataSet1aux02: TStringField;
    ClientDataSet1mo_cant: TFMTBCDField;
    ClientDataSet1gf_cant: TFMTBCDField;
    ClientDataSet1mo_cant_om: TFMTBCDField;
    ClientDataSet1gf_cant_om: TFMTBCDField;
    ClientDataSet1produccion: TBooleanField;
    ClientDataSet1Total: TFMTBCDField;
    SpeedButton4: TSpeedButton;
    ADOQuerytipoco_tipo: TStringField;
    ADOQuerytipodes_tipo: TStringField;
    procedure Edit2DblClick(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);


  private
  FFIeldName: string;
    { Private declarations }
  public
    { Public declarations }
  end;
 Const
   coma = #39;

var
  FormAjuste: TFormAjuste;

implementation
Uses unit1,unitlistajuste;

{$R *.dfm}

procedure TFormAjuste.Action2Execute(Sender: TObject);
begin
    FormLISTAJUSTE.Show;
end;

procedure TFormAjuste.Edit2DblClick(Sender: TObject);
begin
      edit2.ReadOnly := False;
end;

procedure TFormAjuste.FormShow(Sender: TObject);
begin
   AdoQuerytipo.SQL.Text := 'Select co_tipo || des_tipo || From tipo_aju '; // selecciono el nombre de la tabla usuarios
   AdoQuerytipo.Active := True; // activo el sql
   While not AdoQuerytipo.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuerytipo.Next; // sigo insertando hasta que encuentre el ultimo
   end;
    AdoQuerytipo.Active := False;  // cierro la consulta
    if ClientDataSet1.State in [dsEdit, dsInsert] then
    end;

end.

[[Caral]]

Hola
Dos campos en el combobox del dbgrid:
Columna 1, que es en realidad la segunda columna del dbgrid.
Ejemplo 1: Datos seguidos:

Código Delphi [-]
   AdoQuerytipo.SQL.Text := 'Select co_tipo, des_tipo From tipo_aju '; 
   AdoQuerytipo.Active := True; 
   While not AdoQuerytipo.Eof do  
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text+'     '+AdoQuerytipo.Fields[1].Text); 
     AdoQuerytipo.Next; 
   end;
    AdoQuerytipo.Active := False;

Ejemplo 2: Uno arriba del otro:

Código Delphi [-]
   AdoQuerytipo.SQL.Text := 'Select co_tipo, des_tipo From tipo_aju '; 
   AdoQuerytipo.Active := True; 
   While not AdoQuerytipo.Eof do  
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); 
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[1].Text); 
     AdoQuerytipo.Next; 
   end;
    AdoQuerytipo.Active := False;

Es eso ?.
Saludos

[gianfranco_tont]

finalmente desisti estoy utilizando cbsEllipsis y un oneditbutooclick le estoy colocando un

Código Delphi [-]
ShowModal = mrOk then

en el otro from y perfecto al selecionar una linea en el grid donde hago la consulta me trae la informacion que quiero y en donde la quiero y hasta alli todo perfecto:

pero como hago si tengo varias celdas donde colocar el cbsEllipsis y cada una de ella debe llamarme un from diferente?

[[Caral]]

Hola
No entiendo.
Creo que, a mi modo de ver, lo mejor seria que te olvidaras del dbgrid e hicieras todo con un stringgrid, es mucho mas manejable para lo que tiene que ver con introducir datos por linea, osea, una factura.
Saludos

[gianfranco_tont]

debe haber algo que pueda solucionar esta situacion, de verdad veo muchos programas que hacen lo mismo, ahora no se como utilizar este componente voy a investigar a ver si puedo solucionarlo.

oye de verdad gracias por tu ayuda de verdad te quite mucho tiempo.