dblookupcombobox en un dbgrid
Hola !!!!
Espero me puedan ayudar se los agradeceria mucho !!!!!!!! Trabajo con delphi 5 y paradox, en un dbgrid muestro los datos de una tabla y en uno de los campos necesito elegir un dato de otra tabla para esto pense en poner un fklookup pero tambien necesito que al ir telceando por ejemplo el nombre de un cliente lo busque en mi segunda tabla hasta encontrar el que necesito y esto no me lo permite hacer el fklookup. Para eso pense entonces en un dblookupcombobox pero el primer problema es que no se como ponerlo dentro de un dbgrid e buscado en el foro y solo encontre como poner un check box pero para un dblookupcombobox no. Les agradeceria que me dijeran si se puede hacer esto o alguna otra forma de hacerlo. |
Adaptarlo es facil solo debes cambiar la referencia a la clase checkbox por la que necesitas
intentalo y te ayudare en el camino |
el codigo que encontre para hacerlo con un check box es el suiguiente
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var Check: Integer; R: TRect; begin if Column.FieldName = 'NombreCampo' then begin DBGrid1.Canvas.FillRect(Rect); Check := 0; if Table1.FindField('NombreCampo').AsInteger = 1 then Check := DFCS_CHECKED; R:=Rect; InflateRect(R,-2,-2); //Disminuye el tamaño del CheckBox DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check); end; end; pero no se donde ni como modificarlo para un dblookupcombobox |
desde ClientDataSet
Hola, si he entendido bien, quieres un DbLookUpComboBox en un Grid. Esto lo soluciones desde ClientDataSet. Editas los campos (boton derecho Editor Fields...), en la ventana de campos de nuevo boton derecho y seleccionas 'New Field..' . Se presenta una venta, indicas nobmre, tipo y longitud del nuevo campo y que est de tipo Lookup. Se habilitan los valores para que le indiques la tabla, KeyValue y KeyResult.
Un saludo |
La franja horaria es GMT +2. Ahora son las 16:45:16. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi