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


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

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


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		麻烦大佬看看我流程哪里写错了，时好时坏  发帖心情 Post By：2023/8/29 22:28:00 [显示全部帖子]

1、表“教学进度表”

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

2、表“技战术数据库”

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

3、窗体“教学进度设计”

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看

点击按钮“添加”

代码如下：
vars("tbname") = "教学进度表"
Forms("筛选查找").Show


4、弹出窗体“筛选查找”

图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看

点击树形，选择到树形的最后一个条目上，点击按钮“选择”

代码如下：
Dim str As String = Tables("技战术数据库").Current("五级内容")
If forms("教学进度设计").Opened =True Then 
Tables(vars("tbname")).Current("主题内容1") = str 
End If
Forms("筛选查找").Close()


请问：为何没实现选中后写入单元格的功能，是哪一个环节出问题？

[此贴子已经被作者于2023/8/29 22:28:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 22:40:00 [显示全部帖子]

谢谢大佬，我去试一试

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


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 22:44:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：68f2b2ce32dfcf1bfa72d327b4508d2.png
图片点击可在新窗口打开查看

上传了源文件
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 22:46:00 [显示全部帖子]

源文件

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:高中篮球技战术系统.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 23:03:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：b5049d7e5f232db42a19157244ce9cc.png
图片点击可在新窗口打开查看




图片点击可在新窗口打开查看此主题相关图片如下：aa6a1bcf5b154c6c5221b3dd9141451.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/8/29 23:03:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 23:09:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：78477ee9e1679434dd91000375105d8.png
图片点击可在新窗口打开查看

能麻烦大佬给个代码吗，我版本太低了，太谢谢了
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2023/8/29 23:30:00 [显示全部帖子]

老大，版本太高打不开，方便给下代码吗？谢谢老大！

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


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

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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

改了还是有错误，请大佬帮忙看看，太谢谢啦
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 6 次数据查询