MSHFlexGrid简单问题

Question

我的VB只有MSFlexGrid，MSHFlexGrid在那里？

Answer 1

菜单\工具\部件\应该可以找到microsoft Hierarchial FlexGrid control

Answer 2

工具-->部件-->microsoft Hierarchial FlexGrid control 6.0

Answer 3

http://expert.csdn.net/Expert/topic/1804/1804069.xml?temp=.2154352可能有用你自己看看吧

Answer 4

我有这个代码，若要，请询问[email protected]，我发给你

Answer 5

Public Sub SaveAsExcel(msfGrid As MSFlexGrid, strName As String, strNote() As String)
Dim i As Integer
Dim j As IntegerSet ExcelSheet = CreateObject("Excel.Sheet")
'ExcelSheet.Application.Visible = True
With ExcelSheet
    For i = 0 To msfGrid.Rows - 1
        For j = 0 To msfGrid.Cols - 1
            .Application.Cells(i + 1, j + 1).Value = msfGrid.TextMatrix(i, j)
        Next
    Next
    For j = 0 To UBound(strNote)
        .Application.Cells(i + 1, j + 1).Value = strNote(j)
    Next
End With
 
'ExcelSheet.SaveAs App.Path & "\excel\" & strName
ExcelSheet.SaveAs strName
ExcelSheet.Application.Quit
End Sub