pvase писал(а) 15. Апреля 2008 :: 05:54:

Извините, но не нашел, как можно выделить несколько строк в табличном поле, удерживая Shift (Cntrl) или мышкой. Это можно сдлеать или нет (подскажите плиз как). Заранее спасибо.

А чего искал? Дави да выделяй.
С Shift выделяется связанный диапазон строк. Можно и клавишей и мышей.
С Ctrl несвязанный диапазон. Тут выделять, естественно, можно только мышей.

Код

Перем Источник,База;

//***************************************************************
Процедура ПриОткрытии()
	Источник = СоздатьОбъект("ODBCDataProvider.MSSQL");
	База = СоздатьОбъект("ODBCDatabase");
	Источник.БазаДанных = База;
КонецПроцедуры	// ПриОткрытии

//*******************************************
Процедура ПослеОткрытия()

	_Форма = СоздатьОбъект("Форма");
	ТабличноеПоле = _Форма.СоздатьЭлементУправленияНаФорме(Форма, "ТабличноеПоле", "ТабличноеПоле");

	ТабличноеПоле.СтильЗаголовков = 0;
	Колонки = ТабличноеПоле.Колонки;

	Колонка = Колонки.Добавить("DESCR");


	Колонка.Заголовок = "DESCR";
	Колонка.Данные = "DESCR";

	ТекстЗапроса = "
		|SELECT
		|	Спр.ID AS ID,
		|	Спр.DESCR AS DESCR,
		|	$Спр.ПолнНаименование AS ПолнНаименование
		|FROM
		|	$Справочник.Контрагенты AS Спр (NOLOCK)
		|WHERE
		|	1 = 1
		|";


	ТекКолонка = ТабличноеПоле.ТекущаяКолонка;
	ТабличноеПоле.ПоставщикДанных = "";
	Источник.УстТекстЗапроса(ТекстЗапроса);
	Источник.УстКлючПорядка("ID");
	ТабличноеПоле.ПоставщикДанных = Источник;
	ТабличноеПоле.ОбновитьСтроки();
	ТабличноеПоле.ТекущаяКолонка = ТекКолонка;

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