Checklistbox1 в Диалоговой форме

Антон640

Подскажите пожалуйста, как правильно в коде FastReport написать цикл, для заполнения CheckListBox1 на диалоговой форме значениями поля frxDBDataset1.
К примеру frxDBDataset1."Name" из таблицы country.db - DBDEMOS.
В Демо есть пример с использованием Таблицы.

Вот так я присваиваю первое значение frxDBDataset1."Name"
CheckListBox1.Items.add(<frxDBDataset1."Name">)

Необходимо, чтоб в CheckListBox1 выгружались все значения поля Name

gpi

написал:

как правильно в коде FastReport написать цикл, для заполнения CheckListBox1 на диалоговой форме значениями поля frxDBDataset1.

var DS: TfrxDataSet;
begin
    DS:=Report.GetDataset('Items');
    DS.First;
    while not DS.Eof do      
      begin          
        ShowMessage(DS.Value('Part Name'));
        DS.NEXT;
      end;        
end.

Антон640

Спасибо за ответ!
но мне не понятно, как этот скрипт используется, для заполнения CheckListBox1 по заданному полю из frxDBDataset1
Вот код, для заполнения CheckListBox1 из Таблицы (Демо FastReport)

begin
BDETable1.Open;
while not BDETable1.EOF do
begin
CheckListBox1.Items.Add(BDETable1.FieldByName('Name').AsString);
BDETable1.Next;
end;
end;

Мне необходимо использовать подключенные значения frxDBDataset1 с главной формы программы, а не добавлять таблицу в диалоговое окно...
что должно быть здесь CheckListBox1.Items.Add(frxDBDataset1??????????('Name').AsString);

gpi

procedure DialogPage1OnShow(Sender: TfrxComponent);
var DS: TfrxDataSet;
begin
    DS:=Report.GetDataset('Customers');
    DS.First;
    while not DS.EOF do
      begin
        CheckListBox1.Items.Add(DS.Value('Company'));
        DS.Next;
    end;
end;

Антон640

gpi написал: »

procedure DialogPage1OnShow(Sender: TfrxComponent);
var DS: TfrxDataSet;
begin
    DS:=Report.GetDataset('Customers');
    DS.First;
    while not DS.EOF do
      begin
        CheckListBox1.Items.Add(DS.Value('Company'));
        DS.Next;
    end;
end;

DS:=Report.GetDataset('frxDBDataset1');

Спасибо!