請教各位前輩
我使用DataEnvironment的方式來做資料集
現在我想使用合併顯示MSHFlexGrid的方式,但試不出來,煩請各位教導,以下是我的語法
Private Sub Command1_Click()
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
    DataEnvironment1.rsCommand1.Close
  End If
  
  ' 讀取 Text1 設定給參數一
  DataEnvironment1.Commands("Command1").Parameters(0) = Text1.Text
  ' 讀取 Text2 設定給參數二
  DataEnvironment1.Commands("Command1").Parameters(1) = Text2.Text

Set MSHFlexGrid1.DataSource = DataEnvironment1
  MSHFlexGrid1.DataMember = "Command1"
End Sub
Private Sub Form_Load()
MshfLEXgrid1.Mergecells = flexMergeRestrictRows
MshfLEXgrid1.Mergecol(0) = True
MshfLEXgrid1.Mergecol(1) = True
End Sub
我已有設定Order By ......排序1,排序2
謝謝各位
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • TEST(嘿)
  • 我利用過底色交替顯示做到GROUP的效果
    Dim MRow,CCol As Double
    Dim Temp As string

      For MRow = MshflexGrid.FixedRows to MshflexGrid.Rows - 1
        
        MshflexGrid.Col=條件欄位
        
        '判別欄位比對狀態是否須換色
        If MRow = MshflexGrid.FixedRows Then
          MSHFlexGrid1.BackColorSel = RGB(200, 222, 220) '初始設定整列底色暫存於BackColorSel
          Temp = MshflexGrid.Text  '初始暫存的比對資料
        ElseIf (Not Temp= MshflexGrid.Text) And MSHFlexGrid1.BackColorSel = RGB(255, 235, 220) Then
          '如果欄位值不同於暫存比對值(即與上一行不同)且暫存底色為RGB(255, 235, 220)則換RGB(200, 222, 220)
          MSHFlexGrid1.BackColorSel = RGB(200, 222, 220)  '新底色
          Temp = MshflexGrid.Text  '新暫存比對值
        ElseIf (Not Temp = MshflexGrid.Text) And MSHFlexGrid1.BackColorSel = RGB(200, 222, 220) Then
          '如果欄位值不同於暫存比對值(即與上一行不同)且暫存底色為RGB(200, 222, 220)則換RGB(255, 235, 220)
          MSHFlexGrid1.BackColorSel = RGB(255, 235, 220)  '新底色
          Temp = MshflexGrid.Text  '新暫存比對值
        End If

    '更換整列底色
        MSHFlexGrid1.Row = MRow
        For CCol = MSHFlexGrid1.FixedCols To MSHFlexGrid1.Cols - 1
           MSHFlexGrid1.Col = CCol
           MSHFlexGrid1.CellBackColor = MSHFlexGrid1.BackColorSel
        Next
      Next

    可產生~~~
    a紅
    a紅
    b綠
    c紅
    c紅
    c紅
    d綠
    當然可以該寫成數種顏色交替!
  • TEST
  • 還可進一步去設定每個COL欄位的色彩 即可完全做到GROUP的效果!甚至更好喔!