请问一下Rave控件TRvCustomConnection怎么用啊?

xiezhirong 2005-04-11 10:41:25
我在我的Form里放了一个TRvCustomConnection 控件和一个TValueListEditor控件,我想要把TValueListEditor里面的值打印到报表里面去,代码如下:
procedure TForm1.RvCustomConnectionTestOpen(Connection: TRvCustomConnection);
begin
Connection.DataRows:=ValueListEditor1.Strings.Count;
end;

procedure TForm1.RvCustomConnectionTestGetCols(
Connection: TRvCustomConnection);
begin
Connection.DoGetCols;
Connection.WriteField('keyex',dtstring,50,'key','1');
Connection.WriteField('valueex',dtstring,50,'value','2');
Connection.WriteField('valueex1',dtstring,50,'value','3');
end;

procedure TForm1.RvCustomConnectionTestGetRow(
Connection: TRvCustomConnection);
begin
Connection.DoGetRow;
Connection.WriteStrData('',ValueListEditor1.Keys[Connection.DataIndex+1]);
Connection.WriteStrData('',ValueListEditor1.Values[ValueListEditor1.Keys[Connection.DataIndex+1]]);
Connection.WriteStrData('','sssss');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RvProject1.Open;
RvProject1.Execute;
RvProject1.Close;
end;
然后我打开Rave Designer,执行"New Data Object",选择"Direct Data View",最后选择我的Form里的RvCustomConnectionTest对象,这时候Rave Designer自动为我生成的DataView里我只能看到一个字段对象,这个字段对象的名字叫做"FieldName",而且我还没有办法再手工添加新的字段对象!
我尝试着修改我的RvCustomConnection对象的FieldAliasList属性,无论我是把它的值写成:
keyex
valueex
还是写成:
keyex=keyex
valueex=valueex
在我新建"Data View"对象的时候,都是只有一个名为"FiledName"的字段对象!
小弟我实在是搞不懂了,请大家多多帮忙
...全文
104 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
laodizhuq 2005-04-12
  • 打赏
  • 举报
回复
路过,帮忙顶一下。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧