or, DA.

C_COLLECTION($one;$many)

$one:=New collection
$many:=New collection

For each ($attribute;ds.Table_1)

$kind:=ds.Table_1[$attribute].kind

Case of
: ($kind="storage")


: ($kind="relatedEntity")
$one.push($attribute)

: ($kind="relatedEntities")
$many.push($attribute)

End case

End for each

http://doc.4d.com/4Dv17/4D/17/dataClassAttributekind.303-3777559.en.html

> 2018/07/31 6:07、Julio Carneiro via 4D_Tech <4d_tech@lists.4d.com>のメール:
> As a thank you for the tip, here is some code to get a Relation name, given 2 
> related tables…



**********************************************************************
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************

Reply via email to