Ok, sorry about that. I'm not used to constraining my typing to the UT. (Certain keys don't work the same.)

Ok, like I was saying, you could do one of several things:

1.
Select tmp
Locate && this is faster than go top and accomplishes the same.
Scan
thisform.list2.ADDITEM (tmp.wname)
EndScan

2. You could place an IF statement around the entire block of code for the FOR...ENDFOR loop.


>You could do one of several things:
>
>1.
>Select tmp
>Locate
>Scan
>
>
>>Firstly ,here is the source code :
>>
>>---------------
>>thisform.list2.CLEAR
>>
>>SELECT wname,wday FROM workday WHERE wday = date() ;
>>AND NOT wname="blank" INTO CURSOR tmp
>>
>>SELECT tmp
>>FOR i = 1 to RECCOUNT()
>>GO i
>>thisform.list2.ADDITEM (tmp.wname)
>>endfor
>>
>>RELEASE tmp
>>---------------
>>The problem is I can prove that there is no record in tmp ,but when I run the program ,it added 3 item into list2 ! HOW COME ?! It make me crazy .
>>Do you have any idea about that ?