还有一个问题，防止多个人打开同一个文件，如下写有问题，打开第一遍可以，打开第二遍就不行了。
msgbox(11)
Dim str_FileName As String =e.FileName
str_FileName=str_FileName.TrimStart("//")
Dim str_path="\\172.16.5.89\pm文件\test\" & str_FileName
msgbox(22)
If e.DataRow("编辑者") = User.Name Then '如果编辑者是当前用户
Return
End If
msgbox(33)
Dim cmd As New SQLCommand
Dim exp As String = "编辑者 Is Null And [_Identify] = " & e.DataRow("_Identify")
cmd.CommandText = "U pdate {员工} Set 编辑者 = '" & User.Name & "' Where " & exp
msgbox(44)
If cmd.ExecuteNonQuery = 1 Then '如果在数据库中字段成功写入编辑者
e.DataRow("编辑者") = User.Name '在显示的表中也改一下
msgbox(55)
'以下为打开附件列中的附件
If e.DataCol.Name = "附件" Then '如果鼠标操作的是附件列
If vars("ls").ContainsKey(e.DataRow("附件")) Then
Vars("ls")(e.DataRow("附件")) = system.Diagnostics.Process.Start(str_path)
Else
Vars("ls").add(e.DataRow("附件"),system.Diagnostics.Process.Start(str_path))
End If
msgbox(1)
e.Cancel = True '取消系统默认的打开文件操作,因为前面已经编码打开了 '成功也要取消打开文件,下面的失败也要取消,因为已经用代码打开了,不再需要文件管理器自动打开
End If
msgbox(66)
Else
cmd.CommandText = "S elect 编辑者 From {员工} Where [_Identify] = " & e.DataRow("_Identify")
Dim nm As String = cmd.ExecuteScalar
If nm > "" Then
MessageBox.show(nm & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
msgbox(77)
e.Cancel = True '取消编辑
End If
加好友 
发短信
Post By：2018/1/30 10:42:00 [显示全部帖子]
