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

Комментарии

• gpi

  September 2011 отредактировано 20:37

  написал:

  как правильно в коде 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

  September 2011 отредактировано 20:37

  Спасибо за ответ!
  но мне не понятно, как этот скрипт используется, для заполнения 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

  September 2011 отредактировано 20:37

  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

  October 2011 отредактировано 20:37

  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');
  
  Спасибо!