请教各位高手,b是数组名,以下代码表示有何问题?如果遇到b(k)为空值时,也就是正好被删除，就不能运行.如何完善这段代码?
for i=1 to 6
...................
ADEL(b,i)
endfor
m=0
g=0
FOR k=1 TO ALEN(b)
locate FOR  EMPTY(kmname) AND bjname=b(k) AND jb!=m　（问题主要出在这里）
IF FOUND()
m=jb
replace kmname WITH ALLTRIM(thisform.list2.Value)  
g=g+1
ADEL(b,k)

ENDIF
IF g>3
EXIT
ELSE
LOOP
ENDIF

ENDFOR


[ 本帖最后由 TZTJ 于 2011-8-24 09:16 编辑 ]

首先感谢hugjj.好象使用adel()数组大小不改变,只不过它相应的値为.F.我用 DISPLAY MEMORY LIKE b也查看它的值确实这样.
但我想用if b(k)=.f.
         loop
         else
..............
         endif
做判断不能运行

感谢!还是hugjj的提示,让我找到了解决问题的办法.采取赋值.

[ 本帖最后由 TZTJ 于 2011-8-24 15:53 编辑 ]