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

此主题相关图片如下：1.png

为了防止别人把文件下载下来，在本地编辑好了，再上传至服务器上，程序怎么控制，普通人只能打开，不能插入文件、插入目录以及清除内容？

[此贴子已经被作者于2018/2/1 14:50:19编辑过]

参考

下载信息 [文件大小：308.0 KB 下载次数：4]
点击浏览该文件:文件按钮_例子.table

.NET Framework 版本：2.0.50727.8825

Foxtable 版本：2017.12.18.1

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

详细错误信息：

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

用如下定时器代码，偶尔启动程序会报上面的错误，咋回事？

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 And 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 & "'" )

dr("编辑者")=Nothing

End If

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

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

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

End try

If dr IsNot Nothing And dr("编辑者")=User.Name Then

改成

If dr IsNot Nothing Andalso dr("编辑者")=User.Name Then

and andalso有什么区别？

以下是引用ycwk在2018/2/1 17:16:00的发言：
and andalso有什么区别？

当没有找到数据的时候，dr是nothing，引用值就会报错

为什么编辑者字段，如果是自己打开，点“刷新” 按钮，编辑者字段就会消失。如果是别人打开，编辑者字段仍然会保留，咋回事？

此主题相关图片如下：1.png

[此贴子已经被作者于2018/2/4 17:57:27编辑过]

刷新的代码

Dim t As Table = Tables("表A")
Dim temp As String = t.Filter
t.DataTable.Load
t.Filter = temp

没看懂你意思。请上传实例具体说明问题。

主题：独占编辑