以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设计思路  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147324)

--  作者:keli0917
--  发布时间:2020/3/14 9:20:00
--  设计思路

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

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

--  作者:keli0917
--  发布时间:2020/3/14 9:27:00
--  

点选择方案下拉框也可以载入所选择的方案。


--  作者:有点蓝
--  发布时间: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")
Next
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

--  作者:keli0917
--  发布时间:2020/3/14 15:54:00
--  
_Identify 不存在。。。。。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:keli0917
--  发布时间:2020/3/14 15:56:00
--  
另存为方案时提示列“_Identify”不属于表 导入银行流水_Table1。
[此贴子已经被作者于2020/3/14 15:56:41编辑过]

--  作者:有点蓝
--  发布时间:2020/3/14 16:06:00
--  
这种窗口表是临时表,不适合3楼的用法

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