set database to mydatabase cwFoo=cwalias+"."+wfieldname cResults = DBGETPROP(cwFoo, "Field", "Comment") cResults = substr(cResults,1,127) myobject.tooltiptext=iif(!empty(cResults),cResults,"")