- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦大佬看看我流程哪里写错了，时好时坏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188052)
-- 发布时间：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编辑过]
-- 发布时间：2023/8/29 22:33:00
--
调试
Dim str As String = Tables("技战术数据库").Current("五级内容")
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()
-- 发布时间：2023/8/29 22:40:00
--
谢谢大佬，我去试一试
-- 发布时间：2023/8/29 22:44:00
--
此主题相关图片如下：68f2b2ce32dfcf1bfa72d327b4508d2.png
上传了源文件
-- 发布时间：2023/8/29 22:46:00
--
源文件
-- 发布时间：2023/8/29 23:03:00
--
此主题相关图片如下：b5049d7e5f232db42a19157244ce9cc.png
此主题相关图片如下：aa6a1bcf5b154c6c5221b3dd9141451.png
[此贴子已经被作者于2023/8/29 23:03:46编辑过]
-- 发布时间：2023/8/29 23:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:高中篮球技战术系统.zip |
-- 发布时间：2023/8/29 23:09:00
--
此主题相关图片如下：78477ee9e1679434dd91000375105d8.png
能麻烦大佬给个代码吗，我版本太低了，太谢谢了
-- 发布时间：2023/8/29 23:30:00
--
老大，版本太高打不开，方便给下代码吗？谢谢老大！
-- 发布时间：2023/8/30 8:48:00
--
升级Foxtable