VBFOXDEV35
Programmer
All,
This problem is happening quite often with version 7 and 8 of VFP and I cannot figure out how to resolve this.
In certain cases when I try evaluate the memo field of a clipper dbf file (DBF, DBT,) I receive a fatal error exception in VFP 7 and 8. The only way to get around this is to do the following:
1. use myTable
2. copy to c:\trash\MyTableCopy
3. use MyTable exclusive
4. zap
5. append from c:\trash\MyTableCopy
6. reindex
The code that is generating the error is as follows:
PROCEDURE UP_COMMENT
*Comments
TRY
LOCAL XS, V1COMMENT, strTemp
XS = ALIAS()
SELECT FDNM && Field reference lookup table
SEEK "COMMENT"
IF FOUND() THEN
**>>Line of code with Error
V1COMMENT = EVALUATE(FDRF) && returns myTable.Comment
**<<Line of code with Error
SELECT(XS)
strTemp = getcmt(V1COMMENT, .F. , .T.)
ELSE
SELECT(XS)
strTemp = ""
ENDIF
IF EMPTY(strTemp) THEN
strTemp = "N/A"
ENDIF
CATCH TO strError
MESSAGEBOX(strError)
ENDTRY
RETURN strTemp
The TRY..CATCH does not even catch this error.
Could there be a SET command that I am missing? I believe my application is using MACHINE as the COLLATE default set. Should it be different?
Does anyone have any ideas ?
Thanks
Art
Art DeGaetano II
Software Developer, MOUS
This problem is happening quite often with version 7 and 8 of VFP and I cannot figure out how to resolve this.
In certain cases when I try evaluate the memo field of a clipper dbf file (DBF, DBT,) I receive a fatal error exception in VFP 7 and 8. The only way to get around this is to do the following:
1. use myTable
2. copy to c:\trash\MyTableCopy
3. use MyTable exclusive
4. zap
5. append from c:\trash\MyTableCopy
6. reindex
The code that is generating the error is as follows:
PROCEDURE UP_COMMENT
*Comments
TRY
LOCAL XS, V1COMMENT, strTemp
XS = ALIAS()
SELECT FDNM && Field reference lookup table
SEEK "COMMENT"
IF FOUND() THEN
**>>Line of code with Error
V1COMMENT = EVALUATE(FDRF) && returns myTable.Comment
**<<Line of code with Error
SELECT(XS)
strTemp = getcmt(V1COMMENT, .F. , .T.)
ELSE
SELECT(XS)
strTemp = ""
ENDIF
IF EMPTY(strTemp) THEN
strTemp = "N/A"
ENDIF
CATCH TO strError
MESSAGEBOX(strError)
ENDTRY
RETURN strTemp
The TRY..CATCH does not even catch this error.
Could there be a SET command that I am missing? I believe my application is using MACHINE as the COLLATE default set. Should it be different?
Does anyone have any ideas ?
Thanks
Art
Art DeGaetano II
Software Developer, MOUS