Foxtable(狐表) → 用户栏目 → 专家坐堂 → 记录窗口，网址列，怎么直接打开网页。


  共有2323人关注过本帖树形打印复制链接

主题：记录窗口，网址列，怎么直接打开网页。
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		记录窗口，网址列，怎么直接打开网页。  发帖心情 Post By：2016/9/14 17:06:00 [显示全部帖子]

如果 在表事件中，设置了，所有不可以直接编辑。（表事件，PrepareEdit， e.Cancel =True）


如何 ，在窗口-记录窗口，网址列，怎么直接打开网页。
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		PrepareEdit里面写，可以。  发帖心情 Post By：2016/9/14 17:45:00 [显示全部帖子]

PrepareEdit里面写，可以。


If e.Col.Name <> "选" And  e.Col.name <> "网址" Then
e.Cancel =True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/9/14 17:47:00 [显示全部帖子]

Dim strs() As String = {"选","网址"}
For i As Integer = 0 To strs.Length-1
    If e.Col.Name <> strs(i) Then
        e.Cancel =True
    End If
Next

我改成这样，又不行了。不知道，这样改代码，哪里不对？
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/9/14 17:58:00 [显示全部帖子]

嗯。按狐爸的来，很好用。谢谢

startedit写入：

If e.Col.name = "选"
    e.Cancel = False
Else
    Dim strs() As String = {"网址","网址2","网址3","官网"}
    For i As Integer = 0 To strs.Length-1
        If e.Col.name = strs(i)
            If e.Row.IsNull(strs(i)) = False Then
                Dim Proc As New Process
                Proc.File = e.Row(strs(i))
                Proc.Start()
            End If
        End If
        e.cancel = True
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/9/14 18:05:00 [显示全部帖子]

狐爸，今年的，终身版。还有吗？什么时候 发？多少钱？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询