Foxtable(狐表) → 用户栏目 → 专家坐堂 → 麻烦大佬看看我流程哪里写错了，时好时坏


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

主题：麻烦大佬看看我流程哪里写错了，时好时坏
帅哥哟，离线，有人找我吗？
yangjing
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 10:09:00 [只看该作者]

大佬，目前还没有办法，能不能帮忙吧代码贴出来呢？

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 10:10:00 [只看该作者]

因为已经过期啦，没法升级了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/30 10:14:00 [只看该作者]

既然是从目录树点击取值的，代码里应该从目录树选中的节点里获取需要的内容，而不是从表格里获取：http://www.foxtable.com/webhelp/topics/0884.htm

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 10:36:00 [只看该作者]

Dim str As WinForm.TreeView
str = Forms("筛选查找").Controls("TreeView1")
msgbox(str)
msgbox(forms("教学进度设计").Opened)
If forms("教学进度设计").Opened =True Then 
Tables(vars("tbname")).Current("主题内容1") = str 
msgbox(Tables(vars("tbname")).Current("主题内容1"))
End If
Forms("筛选查找").Close()

改了还是有错误，请大佬帮忙看看，太谢谢啦
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/30 10:43:00 [只看该作者]

str = Forms("筛选查找").Controls("TreeView1").SelectedNode.text

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 10:56:00 [只看该作者]

大佬，报错了


图片点击可在新窗口打开查看此主题相关图片如下：25167fcba36053acb2245c7b274fd84.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/30 11:03:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 11:11:00 [只看该作者]

大佬，有办法解决吗？升级加密狗要等领导审批，这个小功能现在实现吗，在现有版本上

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/30 11:19:00 [只看该作者]

不管升级不升级，都要学会自行调试找出有问题的代码。然后提问问题的时候，请把完整代码给出来，然后说明调试后哪一句有问题

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/30 11:27:00 [只看该作者]

大佬，实在不好意思，我也是刚学，刚拿到这加密狗和电脑，这小功能就是两部分的代码，都贴出来了，

就是这些，没经验，囫囵吞枣想尽快弄完成这小东西，让大佬见笑，实在不好意思，

Dim str As WinForm.TreeView
str = Forms("筛选查找").Controls("TreeView1").SelectedNode.text
msgbox(str)
msgbox(forms("教学进度设计").Opened)
If forms("教学进度设计").Opened =True Then 
Tables(vars("tbname")).Current("主题内容1") = str 
msgbox(Tables(vars("tbname")).Current("主题内容1"))
End If
Forms("筛选查找").Close()



此主题相关图片如下：13ccc331c3657f3185d2ae0d490209c.png
按此在新窗口浏览图片

[此贴子已经被作者于2023/8/30 11:28:44编辑过]
 回到顶部
总数 30 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询