• На форуме с 14 марта 2014г.
  • Сообщений: 79
  • Спасибо: 0

Тема: Form_TableAttributeRowAdded

В объекте/форме есть табличный атрибут, в нём одна колонка ATTR_XXX типа "Ссылка на пользователя".
Почему в этом коде

Sub Form_TableAttributeRowAdded(Form, Object, TableAttribute, TableRow)
  msgbox TableAttribute.Rows.Count    ' = 1, 2, 3, ...
  msgbox typename(TableRow.Attributes("ATTR_XXX").User)    ' is nothing
  'msgbox TableRow.Attributes("ATTR_XXX").Type    ' = 9 (tdmUserLink)
  'msgbox typename(TableAttribute.Rows(TableRow).Attributes("ATTR_XXX").User)    ' is nothing
  'msgbox (TableRow.Attributes("ATTR_XXX").User)    ' err - no object...
End Sub

после добавления записи(строки) в табличный атрибут, второй msgbox всегда показывает "nothing", хотя первый показывает реальное количество записей?

Ответ от McZag (изменено: McZag, 25 марта 2014г. 09:13:26)

  • Откуда: Москва
  • На форуме с 16 марта 2007г.
  • Сообщений: 670
  • Спасибо: 13

Re: Form_TableAttributeRowAdded

A77x7 пишет:

после добавления записи(строки) в табличный атрибут, второй msgbox всегда показывает "nothing", хотя первый показывает реальное количество записей?

Да, вы правы. Странное поведение, занес в ошибки. Значение обновляется уже после события.
Вот так работает:

Sub Form_TableAttributeChange(Form, Object, TableAttribute, TableRow, ColumnAttributeDefName, OldTableRow, Cancel)
 msgbox TableRow.Attributes("ATTR_XXX").User.Description
End Sub