Ver Mensaje Individual
  #3  
Antiguo 19-10-2006
Caray Caray is offline
Miembro
 
Registrado: abr 2006
Posts: 61
Reputación: 19
Caray Va por buen camino
Sigo sin encontrar el keyValue

Que onda gente del foro, espero que todos esten bien.

Pues quiero mencionarles que sigo sin encontrar la propiedad KeyValue del IWDBLookupComboBox pensé que ya no lo necesitaría pero he llegado a un punto en el que veo que si es necesario (indispensable diría yo) utilizarlo,
lo único que aparace es el KeyField pero ese no me sirve.

Les dire porque, lo que pasa es que tengo 3 IWDBLookupComboBox con su datasource y su datafield ademas tengo enlazado con un query, lo que ocupo es solo tener la propiedad listsource,keyfield y listfield del query y arriba en el datasource y datafield nada porque al guardar tengo este codigo.

procedure Tfrmencuesta.pregunta1;
var
i : integer;
unidad,maestro,materia : string;
begin
Itrans.Active:=true;
i:=0;
unidad:= qrymateria.parambyname('unidad').asstring;
maestro:=qrymateria.parambyname('maestro').asstring;
materia:=qryaux.parambyname('materia').asstring;
Tencuesta.Insert;
Tencuesta.FieldByName('clave_unidad').AsString:= unidad;
Tencuesta.FieldByName('clave_maestro').AsString:=maestro;
Tencuesta.FieldByName('clave_aprendizaje').AsString:=materia;
Tencuesta.FieldByName('no_pregunta').AsInteger:=1;
i:= RGP1.ItemIndex+1;
label8.Caption:=inttoStr(i);
if(i=1)then
Tencuesta.FieldByName('respuesta').AsInteger:=1
else
if(i=2)then
Tencuesta.FieldByName('respuesta').AsInteger:=2
else
if(i=3)then
Tencuesta.FieldByName('respuesta').AsInteger:=3
else
if(i=4)then
Tencuesta.FieldByName('respuesta').AsInteger:=4
else
if(i=5)then
Tencuesta.FieldByName('respuesta').AsInteger:=5;

Tencuesta.Post;
Tencuesta.Cancel;
end;

y en un LookupComboBox esto

procedure Tfrmencuesta.CBunidadChange(Sender: TObject);
begin
qrymaestro.close;
qrymaestro.parambyname('unidad').asstring:=(CBunidad.DataSource.DataSet.FieldValues['clave_unidad']);
qrymaestro.open;
hola.caption:=(CBunidad.DataSource.DataSet.FieldValues['clave_unidad']);
end;

por eso digo que es necesario el KeyValue para no poner CBunidad.DataSource.DataSet.FieldValues['clave_unidad'] pork al guardad me pone un registro bien y otro que tiene nada mas los valores de los LookUpComboBox.

bueno lo que quiero es que me digan si en verdad esta la propiedad KeyValue o hay algo muy semejante.

si tienen dudas sobre lo que quieron diganme y se los tratare de explicar lo más claro posible
Responder Con Cita