Page History
...
| Code Block | ||
|---|---|---|
| ||
Public Property LOBUnit() As Variant |
Example
...
| language | vb |
|---|
Sub
...
Main
...
Dim
...
MyDiagram
...
As
...
Diagram
...
Dim
...
m
...
As
...
Model
...
Dim
...
e
...
As
...
Entities
...
Dim
...
ent
...
As
...
Entity
...
Dim
...
atr
...
As
...
AttributeObj
...
Set
...
MyDiagram
...
=
...
DiagramManager.ActiveDiagram
...
Set
...
m
...
=
...
MyDiagram.ActiveModel
...
Set
...
e
...
=
...
m.Entities
...
For
...
Each
...
ent
...
In
...
e
...
For
...
Each
...
atr
...
In
...
ent.Attributes
...
atr.LogicalRoleName
...
=
...
ent.EntityName
...
+
...
"_"
...
+
...
atr.AttributeName
...
+
...
"_Role"
...
Next
...
atr
...
Next
...
ent
...
For
...
Each
...
ent
...
In
...
e
...
For
...
Each
...
atr
...
In
...
ent.Attributes
...
If
...
atr.HasLogicalRoleName
...
then
...
MsgBox("ENT:
...
"
...
+
...
ent.EntityName
...
+
...
vbCrLf
...
+
...
_
...
"ATTR:
...
"
...
+
...
atr.AttributeName
...
+
...
vbCrLf
...
+
...
_
...
"LogicalRoleName:
...
"
...
+
...
atr.LogicalRoleName)
...
End
...
If
...
Next
...
atr
...
Next
...
ent
...
End
...
Sub
| Info | ||
|---|---|---|
| ||