以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  锁定排除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115587)
--  作者：yifan3429
--  发布时间：2018/3/9 17:09:00
--  锁定排除
If e.DataRow("审核") = True Then \'已经审核通过的行
    e.DataRow.Locked  = True  \'如果此行已锁定,也就是准备取消锁定此行
需要排除 编辑 列  不被锁定
End If
--  作者：有点甜
--  发布时间：2018/3/9 18:30:00
--  

要在click或者doubleclick，写代码

 

If e.col.name = "第一列" Then
    e.Table.StartEditing

End If

[此贴子已经被作者于2018/3/9 18:30:10编辑过]
--  作者：yifan3429
--  发布时间：2018/3/9 20:01:00
--  
这是一个网页链接  解锁后还需要保持网页开启功能
下面的代码不能打开网页


 If e.col.name = "第一列" Then

    e.Table.StartEditing

End If
--  作者：有点蓝
--  发布时间：2018/3/9 20:24:00
--  
doubleclick事件

If e.col.name = "第一列" Then

    e.Table.StartEditing

End If


click事件


If e.col.name = "第一列" Then

    Dim Proc As New Process \'定义一个新的Process

Proc.File = e.row("第一列") \'指定要打开的网页地址
Proc.Start()

End If