Метод SetScreenTable

Назначение

Устанавливает для формата screenId узел iTable в качестве текущего. Допускаются только номера узлов главной логической таблицы.

Описание

function SetScreenTable (screenId : longInt; iTable : integer) : boolean;

Параметры

screenId - идентификатор формата.

iTable - идентификатор узла главной логической таблицы.

Возвращаемое значение

Возвращает true, если успешно.

Пример

Построение дерева по нескольким таблицам.

//**********************************************************
interface Test;

create view

as select
  *

from
  x$files, x$fields

where
((
  xf$code == xe$filecode
))
;

var level : longInt;

//----------------------------------------------------------
function ViewName : string;
{
  if (level = 0)
	Result := x$files.xf$Name;
  else
	Result := x$fields.xe$Name;
}

//----------------------------------------------------------
tree ttt;
  table x$files;

fields
  ViewName;

end;

//----------------------------------------------------------
handleEvent

cmTreeTop:
{
  level := 0;
  SetScreenTable(ttt, #x$files);
}

cmTreeUp:
{
  if (level <> 0)
  {
	level := 0;
	SetScreenTable(ttt, #x$files);
  }
}

cmTreeDown:
{
  if (level = 0)
  {
	level := 1;
	SetScreenTable(ttt, #x$fields);
  }
}
end;

end.

Смотри также

GetScreenTable