請教各位前輩
我使用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) 人氣()