While Wend condition

[raaj123]

hi sir,

Please help me while condition is not working it is directly moving to next.

pls see the below code.

Code:

empid=ASF467 For i=2 to rowcnt ecl=wrksht.cells(i,2) eempid=wrksht.cells(i,1) msgbox cstr(eempid)----here eempid is ASF467 msgbox ecl while cstr(empid)=cstr(eempid) If ecl=0 Then ecl=0 End If If ecl=0.5 Then ecl=0 End If If ecl=1 Then ecl=1 End If If ecl=1.5 Then ecl=1 End If If ecl=>2 Then ecl=2 End If wend [/color] Next

Regards,
Praveen raaj.

[ravi.gajul]

Please use while strcomp(cstr(empid),cstr(eempid))=0

Strings cannot be compared with "=" operator

[raaj123]

hi dude,

my string is ASF467 this is for both empid & eempid

Code:

c=strcomp(cstr(empid),cstr(eempid)) msgbox c

as u told above line it is displaying value as "-1" instead of "0" what to do pls help me.

Code:

while strcomp(cstr(empid),cstr(eempid))=0

when i am using this line my while loop is continuous.


regards,
Praveen raaj.

[ravi.gajul]

Looks like there is a space in one of the variables value and so is the result -1
Please try

Code:

while strcomp (cstr(trim(eempid)),cstr(trim(empid)))=0

the control enters the while loop and continues as condition always returns 0 if both the values compared are same.Hence some where inside the loop ,change the value of empid or eempid to fail the condition and thus exit the loop.