Solved

VB6 - Value like between 2 cells in MSHFlexgrid

Posted on 2014-04-19
3
333 Views
Last Modified: 2014-04-19
Hi,

I have the below code that search a value from a specific column and row into another column and row in the same MSHFlexgrid:

    Dim C As Long
    Dim R As Long

    For C = 1 To MSHFlexGrid_rates.Cols - 1
        If MSHFlexGrid_rates.TextMatrix(0, C) = MSHFlexGrid_rates.TextMatrix(1, 4) Then
            For R = 1 To MSHFlexGrid_rates.Rows - 1
                If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then
                    MSHFlexGrid_rates.Row = R
                    MSHFlexGrid_rates.Col = C
                    MSHFlexGrid_rates.CellBackColor = &H80FF&
                End If
            Next R
        End If
    Next C

Open in new window


What i'm trying to do if to update this part:
If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then

Open in new window


I want to say:
If MSHFlexGrid_rates.TextMatrix(R, C) contains MSHFlexGrid_rates.TextMatrix(1, 6) then

Ex:
If in MSHFlexGrid_rates.TextMatrix(1, 6) i have the value: 1559 and in MSHFlexGrid_rates.TextMatrix(R, C) i have a value: 1559.00 or 1559675, it would then put the cells in orange.

It is important to tell that the number of characters may vary in MSHFlexGrid_rates.TextMatrix(1, 6).

How can i do that?

Thanks
0
Comment
Question by:Wilder1626
  • 2
3 Comments
 
LVL 46

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 40010483
If InStr(1, MSHFlexGrid_rates.TextMatrix(R, C), MSHFlexGrid_rates.TextMatrix(1, 6)) Then...
0
 
LVL 11

Author Closing Comment

by:Wilder1626
ID: 40010497
Thanks for your help. it works
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 40010503
As always, you're welcome and I'm glad I was able to help.

In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now