快速開發平臺網格部件合并單元格。

度量快速開發平臺中網格部件中的單元格，在合并的時候觸發，根據實現代碼的內容來判斷哪些單元格可以合并，哪些單元格不能合并。注意：要啟用單元格合并事件，需要先設置網格部件的屬性“允許單元格合并”；勾上后表示網格中所有字段、只要值相同的行，都自動合并。因此，我們一般是在單元格合并事件中設置哪些條件不合并。

該事件需要使用事件參數，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

  效果：

注意下面客戶類型為其他的，因為前面客戶等級不同，所以沒有合并。

這樣就簡單實現了自定義單元格的合并。

原帖地址：http://bbs.delit.cn/thread-106-1-1.html