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

张军勇

经常用到的技术，不清楚的赶紧收藏。

张军勇

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

复制代码

可以用代码模式插入代码。