//파라미터를 설정하는 부분
procedure TViewERPForm.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'date1' then
begin
ParValue := DBDateTimeEditEh1.Text;
end
else if ParName = 'date2' then
begin
ParValue := DBDateTimeEditEh2.Text;
end;
end;
//실제 레포트에서 사용하는 부분
[date1]부터 [date2]부터
근데^^; 이렇게 사용하는데...
파라미터 넘길때..계속
exception class EVariantTypeCastError with message
'Could not convert variant of type(String) into type(Double)'
이런 에러가 납니다..
참고로 DBDateTimeEditEh1.Text 에는 '2003.04.01'
참고로 DBDateTimeEditEh2.Text 에는 '2003.04.31'
또 이 에러가 10번 나오고 계속 진행하면....화면에는 값이 제대로 나옵니다..
참고로 결과 데이셋의 로우도 10개인데...
이건 잘 몰라서 ...아뭏튼 무슨 에러인지...
답답하군요..
그럼 고수님들의 좋은 답변주시길..
비도 오는데 즐프하세염..