快速開發(fā)平臺(tái)網(wǎng)格部件合并單元格。

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

該事件需要使用事件參數(shù)，Me.GetEventArgs()。事件參數(shù)共有五個(gè)值，如下所示

dim e1=Me.GetEventArgs()

e1.FieldName:合并事件中的列名稱，那一個(gè)字段需要進(jìn)行控制；

e1.Value1:字段的第一個(gè)值（用于判斷該字段各行的值）；

e1.Value2:字段的下一個(gè)值（用于判斷該字段各行的值）；

e1.ReturnValue:是否合并的標(biāo)志，為true表示合并，為false表示不合并；

e1.Handled:系統(tǒng)保留值，設(shè)置為true

示例：

本示例是設(shè)置區(qū)域中客戶的相關(guān)信息，把相同區(qū)域，相同等級(jí)的客戶類型顯示合并起來。

'網(wǎng)格部件1 的 單元格合并事件 事件代碼：
  
dim e1=Me.GetEventArgs()
  
'客戶等級(jí)與客戶類型這兩個(gè)字段，有些相同的值不允許合并，因?yàn)樾枰辞耙粋€(gè)字段是否相同判斷
  
if e1.FieldName="客戶等級(jí)" or e1.FieldName="客戶類型" then
  
    if　網(wǎng)格部件1.GetFieldValueByRowHandle(e1.Value1,"所在片區(qū)") <>網(wǎng)格部件1.GetFieldValueByRowHandle(e1.Value2,"所在片區(qū)") then
  
       '所在片區(qū)不相等的，即使客戶等級(jí)或者客戶類型相等，也不合并
  
       e1.ReturnValue=false
  
       e1.Handled=true
  
    end  if
  
    if  e1.FieldName="客戶類型"  then
  
       if　網(wǎng)格部件1.GetFieldValueByRowHandle(e1.Value1," 客戶等級(jí)") <>網(wǎng)格部件1.GetFieldValueByRowHandle(e1.Value2," 客戶等級(jí)") then
  
           '客戶等級(jí)不相等的，客戶類型相等，也不合并
  
           e1.ReturnValue=false
  
           e1.Handled=true
  
       end  if
  
    end  if
  
end if

  效果：

注意下面客戶類型為其他的，因?yàn)榍懊婵蛻舻燃?jí)不同，所以沒有合并。

這樣就簡(jiǎn)單實(shí)現(xiàn)了自定義單元格的合并。

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