Microsoft KB Archive/176563

= BUG: DBGrid Loses All Except One Row After Scrolling to Botto =

Article ID: 176563

Article Last Modified on 5/13/2003

-

APPLIES TO


 * Microsoft Visual Basic 6.0 Learning Edition
 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition
 * Microsoft Visual Basic 5.0 Control Creation Edition
 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition

-



This article was previously published under Q176563



SYMPTOMS
With a bound DBGrid control, navigation is often performed with the properties and methods of the Recordset object of the Data control. After such an operation, if the vertical scroll bar of the DBGrid control is dragged to the bottom, the DBGrid control loses all except the last row of data. In addition, the vertical scroll bar is lost, making it impossible to view the rest of the rows.



RESOLUTION
To work around this problem, place the code to ReBind the data in the RowColChange event of the DBGrid control, as follows:

Private Sub DBGrid1_RowColChange(LastRow As Variant, _                                   ByVal LastCol As Integer) If DBGrid1.VisibleRows = 1 Then DBGrid1.ReBind DBGrid1.Scroll 0, Data1.Recordset.RecordCount - _ Data1.Recordset.AbsolutePosition End If  End Sub



STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this bug and will post new information here in the Microsoft Knowledge Base as it becomes available.



MORE INFORMATION
There are several properties and methods of the Recordset object that can be used to navigate through the rows of a bound DBGrid control.

The properties include:

AbsolutePosition

PercentPosition

The methods include:

FindFirst

Move

Seek

For the following illustration, the AbolutePosition property is used.

Steps to Reproduce Behavior
 Start Visual Basic and create a new Standard EXE. Form1 is created by default. Add a Data control to Form1 and set the following properties: DatabaseName = "C:\Program Files\DevStudio\VB\Nwind.mdb" RecordSource = "Customers" Add a DBGrid control to Form1 and set the following properties:

DataSource = "Data1"  Add a CommandButton to Form1 with the following code: Private Sub Command1_Click Dim row_count As Long

'Set the current row to the middle row row_count = Data1.Recordset.RecordCount Data1.Recordset.AbsolutePosition = row_count / 2

End Sub

 Run the project and click on Command1 and note that the middle row is selected. Finally, use the vertical scroll bar of the DBGrid control to scroll to the bottom and note that all rows are lost except the last row.</li></ol>

Additional query words: kbVBp500bug kbVBp600bug kbdse kbDSupport kbVBp

Keywords: kbbug KB176563

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.