Table.Insert(Position:Integer; Map:String; Source:Dataset) : Integer
Вставить строки из датасета

Метод Table.Insert вставляет перед строкой Position все строки из Source. Параметр Map определяет соответствие колонок таблиц в формате "имя_колонки_назначения=#номер_колонки_источника, имя_колонки_назначения=#номер_колонки_источника". Номер колонки источника можно не указывать, тогда колонки копируются последовательно.

Если вставка происходит в поле ссылку, то в датасете должно присутствовать два идущих подряд значения: код и текст отображаемый пользователю.

Пример:

<?xml version="1.0" encoding="windows-1251"?>
<Module Type="Form" Name="DemoForm" Description="Демо">
  <Form Width="320" Height="240" Icon="-1">
    <list Toolbar="3\nadd\n\n4\ncopy\n\n5\nopen\n\n6\ndelete\n\n" 
       Config="64\nA\nA\nstring\n\n\n\n\n\n64\nB\nB\nString\n\n\n\n\n\n64\nC\nC\nString\n\n\n\n\n\n"
       Width="320" Height="240" Name="Table1" Border="16" WindowAlign="9"/>
  </Form>
  <Programm Language="Similar Pascal">
    Procedure OnCreate;
    Var
      Dataset1 : Dataset Of Record a, b, c : String; End;
    Begin
      Dataset1.Append; Dataset1[0].a := 'a'; Dataset1[0].b := 'b'; Dataset1[0].c := 'c';
      Dataset1.Append; Dataset1[1].a := 'd'; Dataset1[1].b := 'e'; Dataset1[1].c := 'f';
      Dataset1.Append; Dataset1[2].a := 'g'; Dataset1[2].b := 'h'; Dataset1[2].c := 'i';
      Table1.Insert(0, 'a=#1, c', Dataset1);
      Table1.Insert(1, 'b, a=#0', Dataset1);
    End;
  </Programm>
</Module>

Результат:

A	B	C
b		c
a	a
d	d
g	g
e		f
h		i

© RTIT