T
Tung
Guest
This is waaay too late but. this works for UltraTextEditors. Other controls like numeric editors would use "Value" instead of "Text". oBindingSource = CAST(oControl
ataBindings["Text"]ataSource, Progress.Data.BindingSource) NO-ERROR. IF VALID-OBJECT(oBindingSource) THEN DO: cBindField = oControlataBindings["Text"]:BindingMemberInfo:BindingField. cDataType = oBindingSource:HANDLE:GET-BUFFER-HANDLE(1):BUFFER-FIELD(cBindField)ATA-TYPE. END.
Continue reading...
ataBindings["Text"]ataSource, Progress.Data.BindingSource) NO-ERROR. IF VALID-OBJECT(oBindingSource) THEN DO: cBindField = oControlataBindings["Text"]:BindingMemberInfo:BindingField. cDataType = oBindingSource:HANDLE:GET-BUFFER-HANDLE(1):BUFFER-FIELD(cBindField)ATA-TYPE. END.Continue reading...