ITPub博客

首页 > 应用开发 > IT综合 > 快速开发平台网格部件合并单元格。

快速开发平台网格部件合并单元格。

原创 IT综合 作者:Fishwood 时间:2015-10-13 10:31:36 0 删除 编辑

     度量快速开发平台中网格部件中的单元格,在合并的时候触发,根据实现代码的内容来判断哪些单元格可以合并,哪些单元格不能合并。注意:要启用单元格合并事件,需要先设置网格部件的属性“允许单元格合并”;勾上后表示网格中所有字段、只要值相同的行,都自动合并。因此,我们一般是在单元格合并事件中设置哪些条件不合并。

该事件需要使用事件参数,Me.GetEventArgs()。事件参数共有五个值,如下所示
dim e1=Me.GetEventArgs()
e1.FieldName:合并事件中的列名称,那一个字段需要进行控制;
e1.Value1:字段的第一个值(用于判断该字段各行的值);
e1.Value2:字段的下一个值(用于判断该字段各行的值);
e1.ReturnValue:是否合并的标志,为true表示合并,为false表示不合并;

e1.Handled:系统保留值,设置为true
示例:
本示例是设置区域中客户的相关信息,把相同区域,相同等级的客户类型显示合并起来。

点击(此处)折叠或打开

  1. '网格部件1 的 单元格合并事件 事件代码:
  2. dim e1=Me.GetEventArgs()
  3. '客户等级与客户类型这两个字段,有些相同的值不允许合并,因为需要看前一个字段是否相同判断
  4. if e1.FieldName="客户等级" or e1.FieldName="客户类型" then
  5.     if 网格部件1.GetFieldValueByRowHandle(e1.Value1,"所在片区") <>网格部件1.GetFieldValueByRowHandle(e1.Value2,"所在片区") then
  6.        '所在片区不相等的,即使客户等级或者客户类型相等,也不合并
  7.        e1.ReturnValue=false
  8.        e1.Handled=true
  9.     end if
  10.     if e1.FieldName="客户类型" then
  11.        if 网格部件1.GetFieldValueByRowHandle(e1.Value1," 客户等级") <>网格部件1.GetFieldValueByRowHandle(e1.Value2," 客户等级") then
  12.            '客户等级不相等的,客户类型相等,也不合并
  13.            e1.ReturnValue=false
  14.            e1.Handled=true
  15.        end if
  16.     end if
  17. end if


效果:
注意下面客户类型为其他的,因为前面客户等级不同,所以没有合并。




这样就简单实现了自定义单元格的合并。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/328153/viewspace-1813848/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2015-09-17

  • 博文量
    184
  • 访问量
    875926