麻烦大佬看看我流程哪里写错了，时好时坏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：麻烦大佬看看我流程哪里写错了，时好时坏