Salu2 amigos foristas
resulta que exporte un archivo de excel2003 a dbf con el cual necesito poner a funcionar un formulario.
tengo los campos CIS y CIP que son campos únicos...
el caso es que puede sea que haya CIP pero no haya CIS entonces necesito que me salga un error diciendo que no hay Testigo secundario...
el caso es que como la tabla se exporto en dbf y nunca lo habia usado se me dificulta comprobar cuando cis esta vacio.
probé esto:
Length(Fieldvalues['cis'])< 1 pero no funciona
Fieldvalues['cis']='' pero tampoco funciona
me imagino que es que no estoy comprobando como debe ser por el tipo de dato por que habia usado era alpha de paradox 7 y ahora en este dbf aparece es una c Character nos e hay que me dicen dejo foto de la tabla y el código que llevo
Código Delphi
[-]
if key=#13 then
begin
With Table1 do
begin
if Locate('cip',edit1.Text,[]) then
begin
edit2.Text:=FieldValues['testigop'];
if (FieldValues['cis'])='' then
begin
if Application.MessageBox('Disculpe, este registro no tiene Testigo Secundario, ¿Esta seguro que quiere cargar la información incompleta?','',mb_yesno)=6 then
begin
edit3.Text:='No Tiene';
edit4.Text:='No Tiene';
edit5.Text:=FieldValues['postulada'];
edit6.Text:=FieldValues['mesa'];
edit7.Text:=FieldValues['ctro'];
edit8.Text:=FieldValues['nombrecent'];
edit9.Text:=FieldValues['direccion'];
edit10.Text:=FieldValues['municipio'];
edit11.Text:=FieldValues['estado'];
end
else
begin
edit1.Text:='';
BitBtn5.Click;
end;
end
else
begin
end;
edit3.Text:=FieldValues['cis'];
edit4.Text:=FieldValues['testigos'];
edit5.Text:=FieldValues['postulada'];
edit6.Text:=FieldValues['mesa'];
edit7.Text:=FieldValues['ctro'];
edit8.Text:=FieldValues['nombrecent'];
edit9.Text:=FieldValues['direccion'];
edit10.Text:=FieldValues['municipio'];
edit11.Text:=FieldValues['estado'];
end
else
begin
Application.MessageBox('No se encuentra la cédula ingresada','');
end;
end;
end;
gracias adelantadas