| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何点击导航，打开对应的代码窗口？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149122) |
| -- 作者：辉潴 -- 发布时间：2020/4/23 21:11:00 -- [求助]如何点击导航，打开对应的代码窗口？？ [求助]如何点击导航，打开对应的代码窗口？？ 上传示例了，密码123 以下内容需要帖子数达到1才可以浏览 [此贴子已经被作者于2020/4/24 21:07:58编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/4/23 21:23:00 -- 开发者密码？ |
| -- 作者：辉潴 -- 发布时间：2020/4/23 21:34:00 -- 以下是引用有点蓝在2020/4/23 21:23:00的发言： 开发者密码？ [此贴子已经被作者于2020/4/23 21:34:35编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/4/23 21:44:00 -- 连接不了数据库，打不开项目，需要开发者登录才能连接 |
| -- 作者：辉潴 -- 发布时间：2020/4/23 22:07:00 -- 以下是引用有点蓝在2020/4/23 21:44:00的发言： 连接不了数据库，打不开项目，需要开发者登录才能连接 重新下载吧，改回888
|
| -- 作者：有点蓝 -- 发布时间：2020/4/23 22:36:00 -- 导航窗口TopicLinkClick事件 Dim dr As DataRow = DataTables("导航").Find("分组=\'" & e.Page.Name & "\' and 名称=\'" & e.Link.Name & "\'") If dr IsNot Nothing AndAlso dr.IsNull("代码") = False Then Dim code As String code= " dim name as string = args(0) " & vbcrlf & dr("代码") msgbox(code) Functions.Add("nav",code) Functions.Complie() Functions.Execute("nav",e.Link.Name) Functions.Remove("nav") End If |
| -- 作者：辉潴 -- 发布时间：2020/4/24 18:27:00 -- 以下是引用有点蓝在2020/4/23 22:36:00的发言：
导航窗口TopicLinkClick事件 Dim dr As DataRow = DataTables("导航").Find("分组=\'" & e.Page.Name & "\' and 名称=\'" & e.Link.Name & "\'") If dr IsNot Nothing AndAlso dr.IsNull("代码") = False Then Dim code As String code= " dim name as string = args(0) " & vbcrlf & dr("代码") msgbox(code) Functions.Add("nav",code) Functions.Complie() Functions.Execute("nav",e.Link.Name) Functions.Remove("nav") End If 您好，新建了页签但是不能操作其它东西，感觉像有个模式的窗口在 |
| -- 作者：有点蓝 -- 发布时间：2020/4/26 8:44:00 -- 按什么步骤测试？或者上传有问题的实例测试 |