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


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

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


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

Dim str As string
str = Forms("筛选查找").Controls("TreeView1").SelectedNode.text
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim str As String
str = Forms("筛选查找").Controls("TreeView1").SelectedNode.textmsgbox(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()



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


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

去掉2个msgbox的代码

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


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


大佬，还是有问题，实在不好意思，麻烦啦


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


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


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

看21楼

 回到顶部
帅哥，在线噢！
SbFox
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：74 积分：500 威望：0 精华：0 注册：2021/12/11 14:20:00 		  发帖心情 Post By：2023/8/30 14:02:00 [只看该作者]

Dim str As String
str = Forms("筛选查找").Controls("TreeView1").SelectedNode.textmsgbox(str)
去掉红色部分
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

太粗心了，大佬，还是有问题，不好意思


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

报错：
.NET Framework 版本：2.0.50727.9061
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,筛选查找,Button1,Click
详细错误信息：
从类型“TreeNode”到类型“String”的转换无效。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

麻烦认真仔细看21,26楼！！

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


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

如果完全看不懂代码的，建议先花时间看看基础吧：http://www.foxtable.com/webhelp/topics/1592.htm

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


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

太谢谢您了，实在不好意思，基础太差，弄好了，太谢谢了，要好好花时间学习一下，万分感谢您的指导

 回到顶部
总数 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.07031 秒, 4 次数据查询