Searching Schemas

Hi Dawid,

Here’s another approach – pass in pColumnName, get a list back. I’m still wondering if you could flatten all that into a one-liner with a $sendall…

Kelly

Do schemaList.$define(schemaName)
Do $clib.$schemas.$first() Returns schemaRef
While schemaRef
Do schemaRef.$objs.$findname(pColumnName) Returns colRef
If colRef
Do schemaList.$add(schemaRef.$name)
End If
Do $clib.$schemas.$next(schemaRef) Returns schemaRef
End While
Quit method schemaList

_____________________________________________________________
Manage your list subscriptions at lists.omnis-dev.com
Start a new message -> mailto:omnisdev-en@lists.omnis-dev.com