独占编辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

文件明明打开在，却弹出 “正常关闭”

[此贴子已经被作者于2018/2/5 11:41:57编辑过]

实例发上来测试。

[此贴子已经被作者于2018/2/5 14:23:10编辑过]

数据库发上来，文件发上来。

不然就做个内部数据源的例子发上来测试。

不用试了，重启了下电脑，好像就好了。等我有问题再请教，谢谢！

For Each key As String In vars("ls").keys

try

'如果是当前用户退出编辑文档,则try语句可以正常执行

vars("ls")(key).ExitTime

Dim dr As DataRow= DataTables("文件协作表").SQLFind("[_identify]=" & key )

'以下代码为删除关闭的文件的编辑人 ,

If dr IsNot Nothing AndAlso dr("编辑者")=User.Name Then ' 如果编辑者是当前用户(表示是当前用户退出了编辑文档),则修改当前编辑者为空

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "U pdate {文件协作表} Set 编辑者 = Null Where [_identify] = " & key ' e.DataRow("_Identify")

If cmd.ExecuteNonQuery = 1 Then

' e.DataRow("编辑者") = Nothing

'Dim dr As DataRow= DataTables("员工").SQLFind("_identify='" & key & "'" )

' msgbox("定时器清空编辑者")

' dr("编辑者")=Nothing

End If

' msgbox(key & ":正常关闭,并删除编辑人")

catch ex As exception '如果当前用户没有退出编辑的文档,则执行以下代码

' msgbox(key & ":正常打开")

End try

定时器中把and 改成了andalso 现在还是报这个错误

.NET Framework 版本：2.0.50727.8825

Foxtable 版本：2017.12.18.1

错误所在事件：计划检测协作文件开关状态

详细错误信息：

未设置对象变量或 With 块变量。

是不是这句代码报错？

For Each key As String In vars("ls").keys

你没有给vars("ls")赋值？

有没有办法给文件加锁？ (.docx .xmind .txt文件类型等)

我想实现：

当A用户打开文件的时候，服务器给文件加锁，当A关闭的时候，服务器给文件解锁

这样如果当A打开文件的同时如果有B也要打开文件的话，服务器通过检测文件处于已锁定状态,提示B用户文件已被锁。而不是数据库的标志位！

[此贴子已经被作者于2018/3/9 10:11:27编辑过]

以下是引用ycwk在2018/3/9 10:08:00的发言：

这样如果当A打开文件的同时如果有B也要打开文件的话，服务器通过检测文件处于已锁定状态,提示B用户文件已被锁。而不是数据库的标志位！

[此贴子已经被作者于2018/3/9 10:11:27编辑过]

只能用数据库标志的方式，也应该用数据库标志的方式。无法直接检测客户端文件是否已经被打开的。

主题：独占编辑