起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: icewood

【结贴】DataGrid的属性无法保存?

[复制链接]
 楼主| 发表于 2009-3-30 15:56:19 | 显示全部楼层
好吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-30 16:30:01 | 显示全部楼层
我试了不行,你们自己做个测试吧.
回复 支持 反对

使用道具 举报

发表于 2009-3-30 17:47:43 | 显示全部楼层
请问
1、你的版本号是多少?
2、你是怎么测试的,请把你的代码贴出来看看,特别是在哪个事件上写的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-31 09:26:29 | 显示全部楼层
读格式代码:
Procedure TMAINFORM.BizFormCreate(Sender: TObject);
var
  grdTmp : TDataGrid;
begin
  inherited;
  with (BizToolBar.ToolBarModule as TORGFILTERTOOLBAR) do
  begin
    PersonIDFieldName := 'FCarUser';
    URLFieldName := 'FDeptURL';
    BizKinds := ['', '用车费用按月查询']; //定义业务管理权限
    OnChange := actQueryExecute;
  end;
  grdTmp := TGRIDSAMPLE(DocView1.Doc).DataGrid;
  grdTmp.IniFileName := sysUtils.GetCurrentDir +  '\grid2.ini';
  grdTmp.IniSectionName := 'GridFormatInfo2';
  grdTmp.LoadFromIniFile(grdTmp.IniFileName);
end;

写格式代码:
procedure TMAINFORM.BizFormClose(Sender: TObject; var Action: TCloseAction);
var
  grdTmp : TDataGrid;
begin
  Inherited;
  grdTmp := TGRIDSAMPLE(DocView1.Doc).DataGrid;
  grdTmp.IniFileName := sysUtils.GetCurrentDir +  '\grid2.ini';
  grdTmp.IniSectionName := 'GridFormatInfo2';
  grdTmp.SaveToIniFile(grdTmp.iniFileName);
end;
回复 支持 反对

使用道具 举报

发表于 2009-3-31 09:30:23 | 显示全部楼层
楼主,我们没你说的那么神。
我这样试过了,看我的图

1.gif

139.1 KB, 下载次数: 69

回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-31 11:51:10 | 显示全部楼层
要试分组统计字段,在属性中设置分组统计字段.
列宽啊标题啊都可以存取的比较好,只是分组汇总字段无法保存(不过我第一次记得保存的很好,这个东西会变??:) ).

未命名.jpg

37.84 KB, 下载次数: 66

回复 支持 反对

使用道具 举报

发表于 2009-3-31 13:17:30 | 显示全部楼层
大哥,我上面试的就是分组汇总。

snap1.png

17.29 KB, 下载次数: 65

回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-31 13:21:21 | 显示全部楼层
打开ini文件,找不到设置的分组统计字段内容,只是记录了DataGrid的表现格式.
是SaveTo...方法只保存了表现格式没有保存上楼图中设置的分组统计字段??
这个搞不定的话,用户操作起来太麻烦了,每次打开都要点属性设置,我们还无所谓,让他们自己去设置他们是不会干的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-31 13:23:42 | 显示全部楼层
你的意思是让我把代码移到按钮下面就可以了吗?我试下
回复 支持 反对

使用道具 举报

发表于 2009-3-31 14:06:31 | 显示全部楼层
楼主,你可以试试,我这边确实是ok的。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-23 09:55 , Processed in 0.045828 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表