写了一段，目的是将一个文件中某个字段下不同的内容提取到一个数组中。但执行不了。尤其是到for下的if 说“下标超界”，不知道原因，求解释！万分感谢~！（或者别的更简单的方法，嘿嘿）

use gxmlb                       &&打开gxmlb.dbf
k=1                             && 变量k,并赋值1
count to js                     &&统计gxmlb有多少个记录，并赋值到js
dimension aa(k)                 &&定义数组aa
goto top                        &&指针位置在第一位
xmlb=alltrim(alltrim(项目类别)) &&字段"项目类别"的第一个值赋值到变量中xmlb中
aa(k)=xmlb                      &&数组aa的第一个值赋值，值为字段中第一个值
for m=1 to js                   && for循环，从1到总记录数
    if aa(m)=xmlb               &&如果数组aa的值等于当前位置字段的值，
        skip 1                  &&指针下移一个位置
        xmlb=alltrim(alltrim(项目类别))  &&指针当前位置的字段值赋值到变量中,同时m递增1，再次循环
    else                        &&如果数组aa的值不等于当前位置字段的值，
        aa(m+1)=xmlb            &&数组下表加1，并将字段当前位置的值赋值
        goto top                &&指针位置回到第一位
        m=1                     &&从头再次循环
    endif                       &&if结束
endfor                          &&for结束

基本上算是头一回独立写，别笑话哦！请不吝赐教！

如果是dimension aa(js)，那数组的范围太大，我只是想取字段中不同的内容放在数组中，例如字段中的内容有：ww, ee, rr, ee, ww,那数组中的内容只是：ww,ee,rr  

这个收到，谢谢！

select 项目类别 from gxmlb into cursor mmm group by 项目类别————没太懂，cursor是不是把字段内容放在临时数据源中？
另，数组的范围定义的太大，这个数组我还要引用，所以怕范围定大了影响后面的运作，还是可丁可卯的好


[ 本帖最后由 mk812 于 2011-4-25 14:17 编辑 ]

哦，其实我就是想把一个字段中的内容重复的内容剔除。因为我的最终目的是：让表单中组合框控件的下拉表中不要显示字段中重复的内容。但又不知道怎么弄，所以想写一段，之后让组合框引用数组

谢谢大家，大家这么一点拨，再看看书，我已经基本找到方法了，思路和“qjbzjp”相近。我还在继续努力中，不过看起来这个节点已经突破了。嘿嘿，继续往前冲