F
flfqnet
Unregistered / Unconfirmed
GUEST, unregistred user!
有一数组,用frxReport打印一切正常
问题出现在,当客户加载自定义的 FR3 (无问题) 时,不能正确显示
跟踪调试发现
procedure TFrm_Main.frxUserDataSet_UserInfoGetValue(const VarName: String;
var Value: Variant);
begin
if frxUserDataSet_UserInfo.RecNo >= SessionHYPrintPool.Count then
exit;
if CompareText(VarName, 'usZIP')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usZIP ;
if CompareText(VarName, 'usName')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usName ;
if CompareText(VarName, 'usAddr')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usAddr ;
end;
RecNo一直等于 SessionHYPrintPool.Count
RecNo在第一次打印时是正常的,重新加载 FR3 文件后,其值一直为 SessionHYPrintPool.Count
问题出现在,当客户加载自定义的 FR3 (无问题) 时,不能正确显示
跟踪调试发现
procedure TFrm_Main.frxUserDataSet_UserInfoGetValue(const VarName: String;
var Value: Variant);
begin
if frxUserDataSet_UserInfo.RecNo >= SessionHYPrintPool.Count then
exit;
if CompareText(VarName, 'usZIP')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usZIP ;
if CompareText(VarName, 'usName')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usName ;
if CompareText(VarName, 'usAddr')= 0 then
Value:= PHYPrintInfo(SessionHYPrintPool.PrintList.Items[frxUserDataSet_UserInfo.RecNo] ).usAddr ;
end;
RecNo一直等于 SessionHYPrintPool.Count
RecNo在第一次打印时是正常的,重新加载 FR3 文件后,其值一直为 SessionHYPrintPool.Count