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
End If
' msgbox(key & ":正常关闭,并删除编辑人")
catch ex As exception '如果当前用户没有退出编辑的文档,则执行以下代码
' msgbox(key & ":正常打开")
End try
Next
定时器中把and 改成了andalso 现在还是报这个错误
.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2017.12.18.1
错误所在事件:计划检测协作文件开关状态
详细错误信息:
未设置对象变量或 With 块变量。