Update: MSHFLexGrid wird nicht mehr als 2048 Zeilen angezeigt.

Zum Anfang

Schritte zum Reproduzieren des Verhaltens

Zum Anfang

Test-Tabelle

1. Erstellen Sie eine einfache Tabelle mit den folgenden Feldern:

        Name         Data Type (SQL Server)       Data Type(Access) 
     ------------------------------------------------------------------
   
        PartID          Integer                      Integer
        PartName        VarChar (10)                 Text (10)
   					

2. Info über einfügen 10000 3000 Zeilen in der Tabelle. Der Einfachheit halber können Sie eine Schleife erstellen und legen Sie den gleichen Datensatz in einen Leistungsindikator 3000 um 10000.
3. Speichern Sie Ihre Tabelle unter "Testen".
   
   Hinweis: Sie können alle anderen Back-End um den Test durchzuführen.

Zum Anfang

Visual Basic-Client

1. Starten Sie ein neues Standard EXE-Projekt in Visual Basic. Form1 wird standardmäßig erstellt.
2. Wählen Sie "Komponenten" im Menü Projekt, und wählen Sie die folgenden Komponenten:
   • Microsoft ADO-Datensteuerelement 6.0 (OLE DB).
   • Microsoft Hierarchical FlexGrid-Steuerelement 6.0.
   
   
3. Wählen Sie im Menü Projekt auf Verweise und "Microsoft ActiveX Data Objects 2.0 Library."
4. Setzen Sie die folgenden Objekte auf das Formular:

       Control             Name                  Caption
      -------------------------------------------------------------------
   
      CommandButton       Command1           Using ADO Recordset
      CommandButton       Command2           Using ADODC
      CommandButton       Command3           Free MSHFlexGrid
      MSHFlexGrid         MSHFlexGrid1       Testing MSHFlexGrid Display
      ADODC               Adodc1
   					

5. Binden Sie ADODC über Ihren DSN oder über den systemeigenen OLEDB-Provider (falls vorhanden). In der Datenherkunft-Eigenschaft schreiben: SELECT * von Test.
6. Fügen Sie den folgenden Code in den Allgemein Deklarationsbereich von Form1:

          Option Explicit
   
          Private Sub Command1_Click()
   
             Dim cn As New ADODB.Connection
             Dim rs As New ADODB.Recordset
   
             cn.Open "Testing"               '<-- Your DSN
   
             rs.Open "select * from Test", cn, adOpenStatic, adLockOptimistic
             rs.MoveLast
   
             ' Check the number records in your ADO recordset
             ' The RecordCount property of the ADO recordset reflects the
             ' actual number of records
   
             Debug.Print "ADO recordset record-count: " & vbTab & _
                 rs.RecordCount
   
             Form1.Caption = "Loading grid... please wait..."
   
             Set MSHFlexGrid1.Recordset = rs
   
             ' Check the number of rows that the Hierarchical FlexGrid
             ' contains The RecordCount property of the Hierarchical
             ' FlexGrid also reflects the actual number of records
   
             Debug.Print "MSHFlexGrid1 Recordset record-count: " & vbTab &  _
                MSHFlexGrid1.Recordset.RecordCount
   
             Form1.Caption = "MSHFlexGrid Display Sample"
   
             ' Free resources
             rs.Close
             Set rs = Nothing
             cn.Close
             Set cn = Nothing
   
          End Sub
   
          Private Sub Command2_Click()
   
             Form1.Caption = "Loading data... please wait..."
   
             ' Set the Grid's source to be ADODC
             Set MSHFlexGrid1.DataSource = Adodc1
   
             ' Check the number of records in ADODC recordset
             Debug.Print "ADO data control record-count: " & vbTab &  _
                Adodc1.Recordset.RecordCount
             Form1.Caption = "MSHFlexGrid Display Sample"
          End Sub
   
          Private Sub Command3_Click()
             MSHFlexGrid1.Clear
             Form1.Caption = "Grid is clear now..."
          End Sub
   					

7. Drücken Sie F5, um den Code auszuführen, und beachten Sie, dass nur 2048 Datensätze in der MSHFlexGrid angezeigt werden .
   
   Hinweis: Verbinden zur Datenquelle mithilfe von OLE DB-Provider für ODBC oder mithilfe der systemeigenen OLEDB-Provider hat keine Auswirkungen auf das Hierarchical FlexGrid-Verhalten.

Zum Anfang