|
|
От: | senglory | |
| Дата: | 11.03.10 23:52 | ||
| Оценка: | |||
Dim cc = From gc In GroupCalendars _
Join ugc In User_GroupCalendars On ugc.GroupCalendarID Equals gc.ObjectID _
Join u In Users On ugc.UserID Equals u.ObjectID _
Where ugc.IsDefaultCalendar = True _
Select gc
Dim cc2 = cc.Single()