• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 418
  • Last Modified:

Loop through a selection set in a grid, it is a control that I bought called Flexcell grid

This should be pretty easy but I don't have a handle on the exact selection set using a Flexcell grid. This is not the ms grid since it did not have the flexibility I needed, but it seems very similar.
I need to know the starting and ending Rows/Cols in the grid that have been selected so I can process that specific area. if anyone knows how I can do this with right click functionality that would be great. I just need to go cell by cell that has been selected.
Thanks
Div
0
dsulkar
Asked:
dsulkar
  • 6
  • 3
1 Solution
 
ZhaolaiCommented:
Assume that your flexcell control is named Grid1. Here is the code:

Dim i As Integer
Dim j As Integer
Dim oSelection As Selection
Set oSelection = Grid1.Selection

For i = oSelection.FirstRow To oSelection.LastRow
    For j = oSelection.FirstCol To oSelection.LastCol
        MsgBox Grid1.Cell(i, j).Text
    Next
Next

Open in new window

0
 
dsulkarAuthor Commented:
Here is what I get
And this has been my problem, I would have hoped that this info was readily available.

oSelection.FirstRow method or data member not found.

it is acting like you can only work on the selection and not one cell at a time.

I have a work around but It is ugly

Please remember this is an aftermarket grid called Flexcell grid version 5.8.4

Thanks
0
 
ZhaolaiCommented:
Hmmm... I downloaded the trial version (5.8.4) of the control.
Open Object Browser (Press F2 in VB6 IDE). Select FlexCell. Do you see the same thing as the attached screenshot below (FirstCol, FirstRow, LastCol, LastRow)?


Screenshot.PNG
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
dsulkarAuthor Commented:
I am using vba and access 2000, The object browser shows exactly what you sent. Still trying to figure out why it won't work
Thanks
0
 
dsulkarAuthor Commented:
OK I changed it to this and it worked fine, any ideas why the dim of the selection did not work?

With GridMain.Selection
For i = .FirstRow To .LastRow 'FirstRow To oSelection.LastRow
    For j = .FirstCol To .LastCol
        MsgBox GridMain.Cell(i, j).Text
    Next
Next
End With

Either way, thats all I was looking for. Thanks for reminding me to look at the object browser, I was just relying on the help file.
0
 
ZhaolaiCommented:
Change
    Dim oSelection As Selection
to
    Dim oSelection As FlexCell.Selection

I suspect that Selection may have multiple definitions.


0
 
dsulkarAuthor Commented:
Exactly right
Thanks a bunch, my brain was just not wanting to work. I appreciate the help.
Div
0
 
dsulkarAuthor Commented:
This is why I love this site, get quick answers in a pinch
0
 
dsulkarAuthor Commented:
Hey there why did it only give the solution an 8.8 when it should have been 10?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

  • 6
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now