主题：文档管理

希望表事件DoubleClick满足一下要求:

1、表锁定状态，如果路径文件存在，则双击当前行打开文件，如果文件名称列为空，或路径文件不存在，则提示“文件不存在”；

2、表可编辑状态，双击文件名称列进入编辑。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文档管理.zip

汗，最基础的内容啊，越学越退步么。

doubleClick事件

 

If e.Table.AllowEdit = False Then
    msgbox(e.Row("文件名称"))
    Dim file As String = ProjectPath & FileSys.GetName(e.Row("文件名称"))
    msgbox(file)
    If FileSys.FileExists(file) Then
        Dim Proc As New Process '定义一个新的Process
        Proc.File = file '指定要打开的文件
        Proc.Start()
    Else
        msgbox("文件不存在")
    End If
    e.cancel = True
End If

真不好意思,最近很忙,想偷点懒,帮助文件没系统看过,没时间啊.

下半年就会调整工作,那时我就闭关学习

试了一下代码,问题:

1、所表状态，文件名称为空或文件路径不对弹出出错框，不是提示消息框

2、表的可编辑状态时，执行了双击程序后再进入编辑状态（比如先打开文件再进入编辑状态）

 代码没问题。

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

3楼代码测试没问题。代码不可能有问题。肯定你改错了。

大红袍老师,动画显示没有锁表时要打开文件再进入编辑状态,我想直接进入编辑状态；另外锁表时，文件名称空或路径不对时出错，而不是消息框提示。