FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problema al relacionar dos tablas
Hola,
Necesito relacionar dos tablas mediante las propiedades MasterSource y MasterField, el problema esta que en cuanto activo la tabla aparece el siguiente error: Could not convert variant of type (Null) into type (String) Los dos campos son numericos. Estoy utilizando el componente THalcyonDataSet en Delphi 7. De antemano, gracias. |
#2
|
||||
|
||||
Problema resuelto
Muy buenas,
Ya he podido resolver el problema. Para resolverlo lo he hecho de una manera muy bruta, que es modificar directamente el codigo del Halcyon. Del fichero gs6_DBF he modificado lo marcado como negrita. Código:
Procedure GSO_dBaseFld.gsStuffABuffer(Buffer: PChar; const KeyFields: string; const KeyValues: Variant); var Psn: integer; Ctr: integer; cf: string; cv: string; tsl: TStringList; begin CurRecord := pointer(Buffer); gsBlank; if length(KeyFields) > 0 then begin tsl := TStringList.Create; Psn := 1; while Psn < length(KeyFields) do begin cf := gsExtractFieldName(KeyFields,Psn); tsl.Add(cf); end; if tsl.Count = 1 then begin if ((VarIsStr(KeyValues)) and (KeyValues <> '')) or (IntToStr(KeyValues) <> '') then cv := KeyValues else cv := ''; gsStringPut(tsl[0],cv); end else begin for Ctr := 0 to tsl.Count-1 do begin if KeyValues[Ctr] <> '' then cv := KeyValues else cv := ''; gsStringPut(tsl[Ctr],cv); end; end; tsl.Free; end; CurRecord := CurRecHold; end; Asegurpe |
|
|
|