show highest number

[clientuser]

I have a form that calculates totals, there are six people listed on the form that has a total for each person..

what i would like to see is whoever has the highest number, show that number in a label somewhere else on the form..

question is, how do i get that highest number?

 

[JohnYingling]

lngtotal = 0
For I = 0 to Ubound(people)
    if total(I) > lngtotal then
        lngperson = Cstr(I + 1)
        lngtotal = total(I)
    End if
Next

http://WWW.VBCompare.Com

 

[rjr9999]

How are you storeing the numbers? Rob
"Programming is like art...It makes me feel like chopping my ear off."

 

[clientuser]

I do not need to store them at this time so for now they are in textboxes..

 

[rjr9999]

Your best bet is to store them right off the bat, they can always be reinitialized I'm going to let you know, I'm no expert, but here's how I personally would do it.

dim names(1 to 10) as string
dim values(1 to 10) as string
dim highest as long
highest = 0

' initialize all your names/values eg...
' names(1) = "Bob"
' values(1) = 99
' There may be a way to have both integer
' and string values in an array, but I don't
' know of it ;P

for I = 1 to ubound(values)
if values(I) > highest then
highest = values(I)
J = I
end if
next

txtBox.text = names(J) & "-" & values(J)

----------
Hope this helps
Rob Rob
"Programming is like art...It makes me feel like chopping my ear off."

 

[rjr9999]

did it help? I like to know these things Rob
"Programming is like art...It makes me feel like chopping my ear off."