Код

	мТаблПоле = лАтриб.СоздатьЭлементУправления("ТабличноеПоле");
	мПоставщик = СоздатьОбъект("ПоставщикДанныхODBC.VFP");
	мТаблПоле.ПоставщикДанных = мПоставщик;
	лБД = СоздатьОбъект("ODBCDatabase");
	лБД.Соединение("DRIVER=Microsoft Visual FoxPro ceType=DBF;SourceDB=c:\skladtk\inform");
	мПоставщик.БазаДанных = лБД;
	мПоставщик.УстТекстЗапроса("SELECT kodtov as kodtov, tovar as tovar FROM sprtovtk");
	мПоставщик.УстКлючПорядка("kodtov");
	лКол = мТаблПоле.Колонки.Добавить("kodtov");
	лКол.Данные = "kodtov";
	лКол = мТаблПоле.Колонки.Добавить("tovar");
	лКол.Данные = "tovar";
 

Код

	мПоставщик.УстТекстЗапроса("SELECT kodtov as kodtov, tovar as tovar FROM sprtovtk WHERE kodtov LIKE ""%100000%""");
	мПоставщик.УстКлючПорядка("kodtov");