Вот код

   КонтактыТаблица.Очистить();
   //
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("ДатаКонтакта","Дата");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("ВремяКонтакта","Время");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("ВидКонтакта","Вид контакта");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("Признак","Признак");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("КонтактноеЛицо","Контактное лицо");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("Автор","Автор");
   ЭлементыФормы.КонтактыТаблица.Колонки.Добавить("Ссылка","Автор");
   ЭлементыФормы.КонтактыТаблица.Колонки.Ссылка.Видимость = Ложь;
   //
   Запрос = Новый Запрос;
   Запрос.Текст ="ВЫБРАТЬ
   |    КонтактСКлиентом.ДатаКонтакта,
   |    КонтактСКлиентом.ВремяКонакта,
   |    КонтактСКлиентом.ВидКонтакта,
   |    КонтактСКлиентом.Признак,
   |    КонтактСКлиентом.КонтактноеЛицо,
   |    КонтактСКлиентом.Автор,
   |    КонтактСКлиентом.Ссылка
   |ИЗ
   |    Документ.КонтактСКлиентом КАК КонтактСКлиентом
   |ГДЕ
   |    КонтактСКлиентом.КонтрагентCRM = &ТекКонтрагент";
   Запрос.УстановитьПараметр("ТекКонтрагент",Ссылка);
   
   ЭлементыФормы.КонтактыТаблица.Значение=Запрос.Выполнить().Выгрузить();
   ЭлементыФормы.КонтактыТаблица.ОбновитьСтроки();
   
не удаляя созданные колонки в ТабЗнач загрузить туда данные запроса не циклом естественно, соответственно название колонок совпадает

(0) потом колонки добавить

через временную таблицу, можно попробывать.

А назначить синоним тоесть назание отображения колонок в готовой таблице можно не разрушив данные?

КонтактыТаблица = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой);    
ЭлементыФормы.КонтактыТаблица.СоздатьКолонки();

КонтактыТаблица это табличное поле на форме, или другие варианты есть чтобы отобразить красиво данные?

(3) Синоним или имя?
например
НекотораяТаблица.Колонки.Колонка1.Имя = "Сумма";

(4) синонимы колонок пропадают, тоесть удляються колонки и заново создаються

(6) синоним чтобы пользователь видел не "КонтактноеЛицо" а "Контактное лицо"

Можно выборкой заполнить))

Выборкой не заполняеться где я туплю?
   Выборка =  Запрос.Выполнить().Выбрать();
   
   Пока Выборка.Следующий() Цикл
       Стр =     ЭлементыФормы.КонтактыТаблица;
       Стр.ДобавитьСтроку();
       Стр.Колонки.ДатаКонтакта = Выборка.ДатаКонтакта;
       Стр.Колонки.ВремяКонтакта = Выборка.ВремяКонакта;    
   КонецЦикла;

похелпите плиз

Пока Выборка.Следующий() Цикл
       Стр =     ЭлементыФормы.КонтактыТаблица;
       Стр.ДобавитьСтроку();
       Стр.Колонки.ДатаКонтакта.Данные = Выборка.ДатаКонтакта;
       Стр.Колонки.ВремяКонтакта.Данные = Выборка.ВремяКонакта;    
   КонецЦикла;    
       
Тоже не работает(((

ЭлементыФормы.КонтактыТаблица не таблица значений

а какже тогда добавлять?

Табл = ЭлементыФормы.КонтактыТаблица.Значение;

Пока Выборка.Следующий() Цикл
       

       Стр = Табл.Добавить();
       Стр.ДатаКонтакта = Выборка.ДатаКонтакта;
       Стр.ВремяКонтакта = Выборка.ВремяКонтакта;    
   КонецЦикла;

ну и:

ЭлементыФормы.КонтактыТаблица.Значение = Табл;
ЭлементыФормы.КонтактыТаблица.СоздатьКолонки();

но может имеет смысл подумать о (2)? временная таблица + объединение