设计思路 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设计思路

共有3497人关注过本帖树形打印复制链接主题：设计思路

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/14 9:34:00 [显示全部帖子]

添加一个方案表：方案名称，方案id列表

保存方案：先保存图1等，然后遍历获取主键列表保存下来

Dim s As String = ""

For Each r As Row In Tables("窗口1_table1").Rows

s = s & "," & r("_Identify")

s = s.Trim(",")

导入方案，查询方案表获取方案id列表，做筛选即可

dim dr as datarow = datatables("方案表").find("方案名称='" & 文本框输入的方案名称 & "'")

if dr isnot nothing then

Tables("窗口1_table1").filter = "_Identify in (" & dr("方案id列表") & ")"

end if

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/14 16:06:00 [显示全部帖子]

这种窗口表是临时表，不适合3楼的用法

建议把表格数据直接导出execl文件保存下来，文件名称为方案名称，需要的时候根据名称找到文件导入execl数据。

主题：设计思路