SELECT 0
CREATE CURSOR tb(xh n(4),xm c(8))
xh1=1
zl=1
zhs=1
DO WHILE .t.
DO WHILE zl<4 APPEND BLANK REPLACE xh WITH xh1 DO CASE CASE zl=1 REPLACE xm WITH '昨天' CASE zl=2 REPLACE xm WITH '今天' CASE zl=3 REPLACE xm WITH '明天' ENDCASE
zl=zl+1
xh1=xh1+1 IF xh1=16 xh1=1 ENDIF zhs=zhs+1
ENDDO
IF xh1=16 xh1=1
ENDIF
zl=1 IF zhs>32 EXIT ENDIF
LOOP
ENDDO
BROWSE