FastReport合并单元格

[xj82257695]

从网上找了段合并单元格的代码，运行的时候总是提示错误
unknow type: "TfrxDBDataset”


网上摘抄代码如下：
需要合并的字段显示抑制重复值属性（SuppressRepeated）为true。设置Page1的OnBeforePrint事件，MasterData1的OnBeforePrint事 件  ，
var
iRowCount: Integer;
AryHeight: Array of Extended;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
i, iRepeat: Integer;
sLastValue, sCurValue: string;
MyDataSet: TfrxDBDataSet;
begin
MyDataSet := TfrxDBDataSet(Report.GetDataSet('数据集名'));
iRowCount := MyDataSet.RecordCount;
SetLength(AryHeight, iRowCount);
MyDataSet.First;
sCurValue := '';
for i := 0 to iRowCount - 1 do
begin
sLastValue := sCurValue;
sCurValue := MyDataSet.DataSet.FieldByName('字段名').AsString;
if(sLastValue <> '') and (sLastValue = sCurValue)then
begin
iRepeat := iRepeat + 1;
AryHeight[i] := 0;
AryHeight[i-iRepeat] := MasterData1.Height * (iRepeat + 1);
end
else
begin
iRepeat := 0;
AryHeight[i] := MasterData1.Height;
end;
MyDataSet.Next;
end;
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if AryHeight[<Line#> - 1] = 0 then
begin
Memo10.Visible := False;
end
else
begin
Memo10.Visible := True;
Memo10.Height := AryHeight[<Line#> - 1];
end;
end;

begin

end.

[xj82257695]

都没有人用过合并单元格吗？

[lsh341999]

TfrxDBDataSet 在脚本中没有注册，脚本不认识这个TfrxDBDataSet类 你应该访问报表内部数据集{MasterData1关联的数据集} 比如:{内部数据集DATA} VAR S:STRING=''{重复值}; LINE:INTEGER; procedure MasterData1OnBeforePrint(Sender: TfrxComponent); Begin if S<><DATA.字段1> then{到报表的数据集必须以字段1排序} BEGIN LINE:=0; S:=<DATA.字段1>; END; LINE:=LINE+1; Line 则计数重复次数 end. MasterData1OnBeforePrint事件是关联到主数据"MasterData1"的OnBeforePrint事件上

[棱不棱]

遇到同样的问题楼主解决了吗

[lanyun2]

是不是窗体上没有放frxDBDataSet控件啊

[xj82257695]

解决不掉，直接结贴算了。

[hongpo789]

有人解決沒有