Отчет в Fastreport 4.12
Добрый день. Вопрос по созданию отчетов вFastReport 4.12: я попала по адресу? Если нет, то подскажите где создать данную тему. Мне нужно, чтобы при открытии диалоговой формы появлялся список подразделений. Создала CmbBox_Departments: TfrxComboBoxControl, описала в процедуре:
procedure DlgDepartmentsOnShow(Sender: TfrxComponent);
var
dsRoleList: TDataSet;
ind: integer;
begin
dtpStartDate.Date := EncodeDate(YearOf(Now), 1, 1);
dtpEndDate.Date := Date;
CmbBox_Departments.Clear;
//отбираем только подразделения предприятия
dsRoleList.Filter := Format('_TYPE=%d', [2]);
dsRoleList.Filtered := True;
if dsRoleList.RecordCount>0 then //если есть записи, создаем массив кодов подразделений
begin
SetLength(ID_Departments,dsRoleList.RecordCount);
end;
dsRoleList.First;
try
// В цикле читаем подразделения
While not dsRoleList.Eof do
begin
ind:=CmbBox_Departments.Items.Add(dsRoleList.FieldByName('_NAME').AsString);//добавляем в список выбора
if (ind>=0) and (ind<dsRoleList.RecordCount) then //если добавлено успешно
begin
ID_Departments[ind]:=dsRoleList.FieldByName('_ID').AsString; //записываем код добавленного подразделения
end;
dsRoleList.Next;
end;
if CmbBox_Departments.Items.Count>0 then //если есть данные, становимся на первую запись
CmbBox_Departments.ItemIndex:=0;
except
ShowMessage('Ошибка заполнения данных');
end;
end;
Но при запуске нет списка подразделений, пусто.....Ошибок не выдается никаких. Что я делаю не так? В прилагаемых примерах отчетов описывается так же и все работает.
Кто пользуется данной версией, подскажите пожалуйста.
procedure DlgDepartmentsOnShow(Sender: TfrxComponent);
var
dsRoleList: TDataSet;
ind: integer;
begin
dtpStartDate.Date := EncodeDate(YearOf(Now), 1, 1);
dtpEndDate.Date := Date;
CmbBox_Departments.Clear;
//отбираем только подразделения предприятия
dsRoleList.Filter := Format('_TYPE=%d', [2]);
dsRoleList.Filtered := True;
if dsRoleList.RecordCount>0 then //если есть записи, создаем массив кодов подразделений
begin
SetLength(ID_Departments,dsRoleList.RecordCount);
end;
dsRoleList.First;
try
// В цикле читаем подразделения
While not dsRoleList.Eof do
begin
ind:=CmbBox_Departments.Items.Add(dsRoleList.FieldByName('_NAME').AsString);//добавляем в список выбора
if (ind>=0) and (ind<dsRoleList.RecordCount) then //если добавлено успешно
begin
ID_Departments[ind]:=dsRoleList.FieldByName('_ID').AsString; //записываем код добавленного подразделения
end;
dsRoleList.Next;
end;
if CmbBox_Departments.Items.Count>0 then //если есть данные, становимся на первую запись
CmbBox_Departments.ItemIndex:=0;
except
ShowMessage('Ошибка заполнения данных');
end;
end;
Но при запуске нет списка подразделений, пусто.....Ошибок не выдается никаких. Что я делаю не так? В прилагаемых примерах отчетов описывается так же и все работает.
Кто пользуется данной версией, подскажите пожалуйста.
Комментарии
FastReport 4.12 работает с данными Лоцмана ПГС 2013 как Менеджер отчетов. Поэтому нет проекта.
Внимательнее изучите работающие отчёты. Вы что-то упустили