请教各位高手,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 编辑 ]

为什么要删除数组中的成员？删除之后数组的成员就会减少，例如原来定义的数组下标为10，循环从1到10使用数组下标不会出错，如果你在循环中删除了数组一个成员，数组的最大下标就成了9，循环到b(10)时就会下标出界产生错误。
要清空数组，可以直接给数组或其中的成员赋值为零或空。

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

if b(k)=.f. 错误。因为数组中的各个值的性质不是逻辑型。只是在使用adel()后，最后产生的元素的值是逻辑型的 F。建议采用 IF TYPE('B(40)'='L'

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

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

删除数组元素，数组的大小不会变——其实只是删除了某个元素的值，后面的值会移位补充，数组总大小不变！