FLEXGRID...HELP!!!

apek · January 20th, 2004, 01:03 PM

i have a flexgrid...
lets say i have 3 columns..and 3 rows..
there are items such as letter G and L in each cell of the grid...
i want my system to analyze every rows..
the analyze here means:

if theres a G/L(or more) on a row,the system will count the G/L that as
1.
its the same for the second row,if theres a G/L(or more),the system
will
increase the count to 2...
and so on....

even if the row has more than one G/L
it count it as one

and the result of this count will be displayed...

from my flexgrid tht i enclosed here, i want the result to be like this :
L = 1, G = 2

my problem is how to the calculation of the G/L in the flexgrid???
i'm really new in VB and i really wanna use flexgrid...

i enclose my code here (that is not work)

Code:

visual basic code:
For X = 0 To MSFlexGrid1.Rows - 1
    For K = 0 To MSFlexGrid1.Cols - 1
'        If MSFlexGrid1.TextMatrix(X, K) = "L" Then
'            l = l + 1
'        ElseIf MSFlexGrid1.TextMatrix(X, K) = "G" Then
'            m = m + 1
'        End If
        For i = 0 To i = 1
            If MSFlexGrid1.TextMatrix(X, K) = "L" Then
                i = i + 1
            End
        For j = 0 To j = 1
            If MSFlexGrid1.TextMatrix(X, K) = "G" Then
            j = j + 1
            End If
                    Next
           Next
Next

gbianchi · January 20th, 2004, 01:12 PM

hi there..

the second part of your code is horrible.. how can you try to loop the same variables that you are adding???

anyway.. the commented part is okay.. just add the next..

For X = 0 To MSFlexGrid1.Rows - 1
    bL = false
    bG = false
    For K = 0 To MSFlexGrid1.Cols - 1
        If MSFlexGrid1.TextMatrix(X, K) = "L" Then
            if not bL then
                l = l + 1
                bL = True
            end if
        ElseIf MSFlexGrid1.TextMatrix(X, K) = "G" Then
            if not bG then
                m = m + 1
                bG = True
            end if
        End If
    next
next

Gonzalo Bianchi

apek · January 20th, 2004, 01:37 PM

so do u mean i have to use back the commented part+your code like this?

Code:

        If MSFlexGrid1.TextMatrix(X, K) = "L" Then
            l = l + 1
        ElseIf MSFlexGrid1.TextMatrix(X, K) = "G" Then
            m = m + 1
        End If

For X = 0 To MSFlexGrid1.Rows - 1
    bL = false
    bG = false
    For K = 0 To MSFlexGrid1.Cols - 1
        If MSFlexGrid1.TextMatrix(X, K) = "L" Then
            if not bL then
                l = l + 1
                bL = True
            end if
        ElseIf MSFlexGrid1.TextMatrix(X, K) = "G" Then
            if not bG then
                m = m + 1
                bG = True
            end if
        End If
    next
next

gbianchi · January 20th, 2004, 01:42 PM

just my code will do the trick...

Gonzalo Bianchi

marcostraf · January 20th, 2004, 05:19 PM

If I understood correctly, you want to count how many rows contain at least one letter G and how many a letter L.
This is what I would do:

dim Lcount as long
dim GCount as long

with flexgrid
  for k = 0 to .rows-1
    for j = 0 to .cols -1
       if .textmatrix(k,j) = "L" then
          lCount =lCount+1
          exit for
       endif
    next
    for j = 0 to .cols -1
       if .textmatrix(k,j) = "G" then
          GCount =GCount+1
          exit for
       endif
    next
  next

The two loops avoid the use of boolean flags, make the code a little more readable and it will be eaiser to update.
Marco