数据环境中添加了表，写事件代码时提示表需要独占打开，在哪里设置呢？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 数据环境中添加了表，写事件代码时提示表需要独占打开，在哪里设置呢？

标题：数据环境中添加了表，写事件代码时提示表需要独占打开，在哪里设置呢？

只看楼主

mary5610

等　级：新手上路
帖　子：51
专家分：0
注　册：2016-4-27
结帖率：64.29%

楼主

已结贴√ 问题点数：10 回复次数：10

数据环境中添加了表，写事件代码时提示表需要独占打开，在哪里设置呢？

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

搜索更多相关主题的帖子: close　制作　

2016-05-23 10:55

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 2 楼

得分:5

sele 表
index on 部门 tag bm unique

2016-05-23 11:00

mary5610

等　级：新手上路
帖　子：51
专家分：0
注　册：2016-4-27

第 3 楼

得分:0

以下是引用tlliqi在2016-5-23 11:00:00的发言：

sele 表
index on 部门 tag bm unique

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

2016-05-23 11:02

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:5

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

坚守VFP最后的阵地

2016-05-23 12:08

mary5610

等　级：新手上路
帖　子：51
专家分：0
注　册：2016-4-27

第 5 楼

得分:0

以下是引用sdta在2016-5-23 12:08:50的发言：

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

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

2016-05-23 12:14

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 6 楼

得分:0

说说你的代码及思路

坚守VFP最后的阵地

2016-05-23 12:17

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 7 楼

得分:0

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

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

坚守VFP最后的阵地

2016-05-23 12:28

mary5610

等　级：新手上路
帖　子：51
专家分：0
注　册：2016-4-27

第 8 楼

得分:0

以下是引用mary5610在2016-5-23 11:02:30的发言：

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

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