Public Function GetAssosation(选中的项目 As Project) As Project
If Not 选中的项目 Is Nothing Then
Dim ass As association
For Each ass In 选中的项目.TargetAssociations.Filter(aucRoleProject2Project)
Set GetAssosation = ass.RelatedObject
Exit Function
Next ass
End If
End Function
’在线等……