dbgrid

[Mario1980]

tengo un dbgrid y quiero evaluar que no se ingresen datos iguales a una columna y que no se vaya de la columna si se ingresan datos iguales o se ingresa un blanco, uso delphi 2,
gracias

[roman]

No tienes un DBGrid. Lo que tienes es un DataSet (TTable, TQuery, etc) asociado a un DBGrid. Te comento esto porque este tipo de validaciones se hacen a nivel del dataset asociado. Lo que tienes que hacer es añadir un índice único al campo que te interesa (usa el DatabaseDesktop si estás usando Paradox o DBase) y programar el evento OnPostError del dataset. Para el valor en blanco puedes agregar la propiedad Required Field al campo (también en el Database Dektop) o bien programar el evento OnBeforePost para examinar que el campo tenga asignado un valor.

// Saludos

[Mario1980]

entiendo tu explicacion pero hay un problema, esas tablas son usadas en un programa hecho en paradox por eso no puedo tocarlas tiene que ser una solucion en codigo, ademas la columna que tengo se ingresan numero por ejemplo si ingreso 2 despues 24 despues 3, esta bien, no tengo que ingresar valores repetidos. espero habertme explicado.
Chau.

[roman]

Ok.

Entonces creo que no tienes más remedio que buscar cada valor manualmente antes de hacer el POST (de cualquier forma sigue siendo un asunto del DataSet y no del DBGrid).

Lo que puedes hacer es usar dos DataSets que apunten a la misma tabla. Uno lo usas como hasta ahora enlazándolo al DBGrid. En el evento OnBeforePost de éste checas que el valor no esté en blanco y usas el otro DataSet para buscar el valor (método Locate por ejemplo). Si lo encuentras o está en blanco lanzas una excepción para cancelar el POST.

// Saludos

[[Lepe]]

A ver que os parece esta función:

Código Delphi [-]
  {-----------------------------------------------------------------------------
    Procedure: DoLookup
    Author:    Lepe
    Date:      26-abr-2004
    Arguments: qry:TDataset;const NombreCampo:string;
 const Valor:Variant; const DevolverCampo:string
    Result:    Variant
            Mira si existe el campo Nombre
            Si se encuentra devuelve el valor correcto
            Si no se encuentra devuelve Unassigned:
                integer   0
                real        0
                string      empty String
                character same as string (left)
                Boolean      false
  -----------------------------------------------------------------------------}
  function DoLookup(qry:TDataset;const NombreCampo:string;
 const ValorNombreCampo:Variant; const DevolverCampo:string): Variant;
  begin
    Result := Unassigned;
    // si el dataset no está abierto, no hace nada.
    if qry.Active then
    begin
      if (qry.FindField(NombreCampo) = nil) then
        Exception.Create('Parámetro NombreCampo : '+ NombreCampo+
 ' no encontrado en Dataset: ' + qry.Name);
      if qry.FindField(DevolverCampo) = nil then
            Exception.Create('Parámetro DevolverCampo : '+ DevolverCampo +
 ' no encontrado en Dataset: ' + qry.Name);
      if (qry.RecordCount >0) then
      begin
        Result := qry.Lookup(NombreCampo ,ValorNombreCampo,DevolverCampo);
        if (VarType(Result) in [varnull]) then //si no existe el registro
        begin
          Result := Unassigned;
        end;
      end;
    end
  
  end;

Saludos