制作表单时，添加了如下事件代码，结果提示表必须独占方式打开，在哪里进行设置呢？
    index   on  部门 tag   bm  unique
    scan   
        thisform.list1.additem(部门)
    endscan
    close index

sele 表
index   on  部门 tag   bm  unique

我的代码都写在表单的初始化事件中，加入了sele语句还是不行。尝试加入this.dataenvironment.cursor1.exclusive=.t.仍然失败。

数据环境中右击需要设置的表，在弹出菜单中选中"属性"，在出现的属性框中，设置EXCLUSIVE=.T.

设置了，也不行呢。发现去掉唯一索引的命令行就没有问题，但我需要这一行啊。

说说你的代码及思路

可以考虑用SQL查询命令
SELECT DISTINCT 部门 FROM TNAME INTO ARRAY ABM

还有一种方法，直接设置列表框的数据源，列表框的INIT事件中：
THISFORM.LIST1.ROWSOURCE="SELECT DISTINCT 部门 FROM TNAME INTO CURSOR BM"
THISFORM.LIST1.ROWSOURCETYPE=3

要完成的功能如下图，部门来源于“职工表”（图也在下方），表中部门有重复，想添加部门到combo1中，所以在表单的init事件中写入代码：
index on 部门 tag bm unique
scan
    (部门)
endscan

7楼回帖中下面二行代码试试

可以用。那我原来的代码问题在哪里呢？