If e.Table.AllowEdit = False Then '如果锁表 For Each file As String In CurrentTable.Current("文件名称").split(",") If FileSys.FileExists(file) Then '如果文件存在 Dim Proc As New Process '定义一个新的Process Proc.File = file '指定要打开的文件 Proc.Start() Else messagebox.show("文件" & file & "不存在","提示") End If Next Else e.cancel = False '进入编辑 End If