Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Course Of The Month
3 days, 19 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Number of FlexGrid rows
Posted on 1999-01-12
In my grid I have one fixed row. I have to have at least two two ordinary rows by default otherwise I receive a "invalid Row Value" error. This results in an extra row as row number one when I fill the grid from a database.
How can I overcome this? How can I get the grid to be filled from the first row?
How can I overcome this? How can I get the grid to be filled from the first row?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
-
2
-
2
- +3
10 Comments
You may have some code that is referencing a row before you are creating it. It would help if you included all of the code you use to fill your grid. Here are some guidlines I use when filling a grid.
I use one fixed row, where I put the headings. If possible, I set the headings at design time, but if not possible, I make sure that I give the grid one row at design time, and perhaps in my code, at form_load time I'll set the grid's formatstring property to the column headers.
MyGrid.FormatString = "Rec Number|First Name |Last Name "
Then, if I'm filling the grid manually, I'll have some code like this:
.
while not rs.EOF
MyGrid.Rows = MyGrid.Rows + 1
i = MyGrrid.Rows - 1
MyGrid.TextMatrix(i, 0) = rs("RecNum")
MyGrid.TextMatrix(i, 1) = rs("FirstName")
MyGrid.TextMatrix(i, 2) = rs("LastName")
rs.MoveNext
Wend
By adding one to the Rows property before trying to put data into it, I make sure I have a valid row. Also, keep in mind that the row numbers start at 0 and go to Rows - 1. So, row 1 actually has an index of 0, and the last row of the grid has an index of Rows - 1. Usually, getting "Invalid Row Value" has something to do with this. Also, if you are keeping your headings in the fixed row (row index 0) then you can clear your grid out by saying MyGrid.Rows = 1.
MD
I use one fixed row, where I put the headings. If possible, I set the headings at design time, but if not possible, I make sure that I give the grid one row at design time, and perhaps in my code, at form_load time I'll set the grid's formatstring property to the column headers.
MyGrid.FormatString = "Rec Number|First Name |Last Name "
Then, if I'm filling the grid manually, I'll have some code like this:
.
while not rs.EOF
MyGrid.Rows = MyGrid.Rows + 1
i = MyGrrid.Rows - 1
MyGrid.TextMatrix(i, 0) = rs("RecNum")
MyGrid.TextMatrix(i, 1) = rs("FirstName")
MyGrid.TextMatrix(i, 2) = rs("LastName")
rs.MoveNext
Wend
By adding one to the Rows property before trying to put data into it, I make sure I have a valid row. Also, keep in mind that the row numbers start at 0 and go to Rows - 1. So, row 1 actually has an index of 0, and the last row of the grid has an index of Rows - 1. Usually, getting "Invalid Row Value" has something to do with this. Also, if you are keeping your headings in the fixed row (row index 0) then you can clear your grid out by saying MyGrid.Rows = 1.
MD
This is the code I use to fill my grid from a database. The problem is that it starts filling from the second row in the grid.
Do While Not MyDataBase.Recordset.EOF
MyFlexGrid.AddItem ( _
MyDataBase.Recordset(0) & Chr(9) & _
MyDataBase.Recordset(1) & Chr(9) & _
MyDataBase.Recordset(2) & Chr(9) & _
MyDataBase.Recordset(3) & Chr(9) & _
MyDataBase.Recordset(4))
MyDataBase.Recordset.MoveN
Loop
Do While Not MyDataBase.Recordset.EOF
MyFlexGrid.AddItem ( _
MyDataBase.Recordset(0) & Chr(9) & _
MyDataBase.Recordset(1) & Chr(9) & _
MyDataBase.Recordset(2) & Chr(9) & _
MyDataBase.Recordset(3) & Chr(9) & _
MyDataBase.Recordset(4))
MyDataBase.Recordset.MoveN
Loop
AddItem will always add a row to the bottom of the grid for you. So, your problem is that you are starting out with a blank row. You shouldn't have to do that. When exactly is it that you get the Invalid Row Value message? Does your fixed row contain column headers, or are you trying to put data there? You should be able to set the number of rows for your grid at 1, at design time. Then fill the headers using the formatstring either at design time or at run time, then your additems should work without giving you that message.
MD
MD
I actually succeeded in removing the first blank row. The key to the success was to set the number of rows to 1. This didn't (for some reason) work on the property page but had to be done in the code. Thanks for the help!
You might have had fixed rows and the no of rows should be atleast 1 greater than the no of fixed rows. This may be a possible reason why it dint work in the property page.
Try my code.Pass the data and number of rows to the following procedure.That works on my App.
Private Sub Tab2_populate_Grid(sDetail
dim fsHeader as string
Me.msEstSummary(1).Font.Bo
fsHeader = vbNullString
Call Tab2_Grid_Header(fsHeader)
Me.msEstSummary(1).Redraw = False
If iNumRows <> 0 Then
Me.msEstSummary(1).Rows = iNumRows + 1
Else
Me.msEstSummary(1).Rows = iNumRows + 2
End If
Me.msEstSummary(1).Cols = EstNoOfCols 'constant 'NoOfRows
Me.msEstSummary(1).FixedRo
Me.msEstSummary(1).FixedCo
Me.msEstSummary(1).Row = 0
Me.msEstSummary(1).Col = 0
Me.msEstSummary(1).RowSel = iNumRows
Me.msEstSummary(1).ColSel = EstNoOfCols - 1
Me.msEstSummary(1).Clip = fsHeader & sDetailBuffer
Me.msEstSummary(1).Redraw = True
End Sub
Private Sub Tab2_Grid_Header(fsHeader As String)
fsHeader = "Item ID" & vbTab & _
"Item Description" & vbTab & _
"PC" & vbTab & _
"UOM" & vbcr
End Sub
Private Sub Tab2_populate_Grid(sDetail
dim fsHeader as string
Me.msEstSummary(1).Font.Bo
fsHeader = vbNullString
Call Tab2_Grid_Header(fsHeader)
Me.msEstSummary(1).Redraw = False
If iNumRows <> 0 Then
Me.msEstSummary(1).Rows = iNumRows + 1
Else
Me.msEstSummary(1).Rows = iNumRows + 2
End If
Me.msEstSummary(1).Cols = EstNoOfCols 'constant 'NoOfRows
Me.msEstSummary(1).FixedRo
Me.msEstSummary(1).FixedCo
Me.msEstSummary(1).Row = 0
Me.msEstSummary(1).Col = 0
Me.msEstSummary(1).RowSel = iNumRows
Me.msEstSummary(1).ColSel = EstNoOfCols - 1
Me.msEstSummary(1).Clip = fsHeader & sDetailBuffer
Me.msEstSummary(1).Redraw = True
End Sub
Private Sub Tab2_Grid_Header(fsHeader As String)
fsHeader = "Item ID" & vbTab & _
"Item Description" & vbTab & _
"PC" & vbTab & _
"UOM" & vbcr
End Sub
Featured Post
PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.
Â
There is also a companion Debug Toolbar that looks like the followin…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month3 days, 19 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.