度量快速开发平台关于网格部件的单元格合并使用及效果

王爱东

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

该事件需要使用事件参数，Me.GetEventArgs()。事件参数共有五个值，如下所示

dim e1=Me.GetEventArgs()

e1.FieldName:合并事件中的列名称，那一个字段需要进行控制；

e1.Value1:字段的第一个值（用于判断该字段各行的值）；

e1.Value2:字段的下一个值（用于判断该字段各行的值）；

e1.ReturnValue:是否合并的标志，为true表示合并，为false表示不合并；

e1.Handled:系统保留值，设置为true

示例：

本示例是设置区域中客户的相关信息，把相同区域，相同等级的客户类型显示合并起来。

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

效果：

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