Как сделать текущую колонку активной?

[Стажер 1С]

Здравствуйте! Посмотрите пожалуйста мой программный код и скажите почему он не работает. Когда я сдвигаю например колонку "к1" направо в табличном поле, активным должен становится текущая колонка ("к1"), но почему то активным становится колонка "к2".

Процедура КоманднаяПанель1СдвинутьКолонкуВПраво(Кнопка)

ТекКолонка = ЭлементыФормы.ТабПоле1.ТекущаяКолонка;
Индекс = ЭлементыФормы.ТабПоле1.Колонки.Индекс(ТекКолонка);
ТабПоле1.Колонки.Сдвинуть(Индекс, 1);
ЭлементыФормы.ТабПоле1.СоздатьКолонки();
ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ТекКолонка;

КонецПроцедуры

[Natain14]

ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ТекКолонка;

КонецПроцедуры

Если я правильно поняла, то проблема в этой строке. Вы устанавливаете текущей первую колонку. Может пойдет что-то подобное (1- это количество шагов сдвига). Только тогда если колонка станет последней то будет выходить ошибка, так что лучше строку вставить в Попытку например

Попытка
ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ЭлементыФормы.ТабПоле1.Колонки[индекс+1];
исключение
ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ТекКолонка;
конецпопытки

[Стажер 1С]

ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ТекКолонка;

КонецПроцедуры

Если я правильно поняла, то проблема в этой строке. Вы устанавливаете текущей первую колонку. Может пойдет что-то подобное (1- это количество шагов сдвига). Только тогда если колонка станет последней то будет выходить ошибка, так что лучше строку вставить в Попытку например

Попытка
ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ЭлементыФормы.ТабПоле1.Колонки[индекс+1];
исключение
ЭлементыФормы.ТабПоле1.ТекущаяКолонка = ТекКолонка;
конецпопытки

Спасибо большое, все работает!