DBGETPROP("tablename.fieldname", "Field", "Comment")
DBSETPROP()
LOCAL lcDBC, lcField, lcName OPEN DATA sourcedata lcDBC = DBC() lcName= JUSTSTEM(lcDBC) SELECT d1.objectname AS tname, d2.objectname AS fname, ; SPACE(254) AS ccomment ; FROM DBC() d1 ; JOIN DBC() d2 ; ON d1.objectid = d2.parentid ; WHERE d1.objecttype = "Table" ; AND d2.objecttype= "Field" ; INTO CURSOR cuTmp USE IN (lcName) USE (DBF("cutmp")) AGAIN IN 0 ALIAS cucomments SELECT cucomments REPLACE ccomment WITH ; DBGETPROP(FORCEEXT(ALLTRIM(tname),ALLTRIM fname)),"Field", "Comment") ALL OPEN DATA targetdata SCAN lcField = FORCEEXT(ALLTRIM(tname),ALLTRIM(fname)) IF INDBC(lcField, "Field") DBSETPROP(,"Field","Comment",ALLTRIM(ccomment)) ENDIF ENDSCAN