Textbox e Indice Unico

Como estan?

Quisiera saber como puedo calcular el ancho de un textbox dependiendo
el tamaño del campo al cual esta enlazado y si se pasa de cierto
tamaño que se calcule pero el alto. Hize algo, pero no tengo los
resultados que quiero el codigo es el siguiente:

loTObjeto = PADC("", FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, "O")
&&Relleno una variabla con el tamaño del campo
ThisForm.&loObjeto..Width = TXTWIDTH(loTObjeto,"Tahoma",8) *
FONTMETRIC(6,"Tahoma",8) &&Calculo el ancho del campo

Es algo muy parecido a lo que pasa cuando se arrastran los campos desde
el DataEnvironment al formulario.

La otra duda es que estoy cargando una tabla en tiempo de ejecucion con un
campo unico, el problema esta en que si repito el campo unico no me da
error al momento de guardar pero si los da cuando me muevo. En otro
formulario hago lo mismo pero funciona bien me da el error cuando debe.
Este es el codigo que utilizo:

SET MULTILOCKS ON

SELECT 0
USE FULLPATH(CURDIR()) + ALLTRIM(Carpeta) + "\" + TablaCampos
loSuccess = CURSORSETPROP("Buffering",5)
IF loSuccess = .T.
MESSAGEBOX("Se ha conectado a la Tabla " + TablaCampos + " con
exito.",64,"Enlace a Datos")
EndIf
loSuccess = .F.
SELECT 1
USE FULLPATH(CURDIR()) + ALLTRIM(Carpeta) + "\" + TablaDigitacion
loSuccess = CURSORSETPROP("Buffering",5,TablaDigitacion)
IF loSuccess = .T.
MESSAGEBOX("Se ha conectado a la Tabla " + TablaDigitacion + " con
exito.",64,"Enlace a Datos")
EndIf

Por sus comentarios estare muy agradecido.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway