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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据表字典

共有2329人关注过本帖树形打印复制链接主题：数据表字典

tld

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

等级：三尾狐帖子：739 积分：7694 威望：0 精华：0 注册：2017/2/3 10:29:00

数据表字典

Post By：2020/1/31 23:46:00 [显示全部帖子]

老师，我在学习数据表字典作为下拉框选取数据，但不知道filter怎么用。下列代码中filter的使用方法有问题，把第二列都 filter了，您帮忙看看。谢谢

Dim dmp As New TableDataMap

dmp.DataTable = "表A" '指定数据来源表

dmp.ValueCol = "第二列" '指定取值列

dmp.DisplayCol = "第二列" '指定显示列

'指定下拉列表时显示哪些列的数据

dmp.ListCols = "第二列"

dmp.Filter = "[第一列] = '" & Tables("表A").current("第一列") & "'"

Tables("表A").Cols("第二列").DataMap = dmp.CreateDataMap() '生成并设置DataMap

另外，上述代码最好放在哪个事件中，在哪里关闭datamap？

[此贴子已经被作者于2020/1/31 23:54:18编辑过]

tld

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

等级：三尾狐帖子：739 积分：7694 威望：0 精华：0 注册：2017/2/3 10:29:00

Post By：2020/2/1 11:18:00 [显示全部帖子]

老师，将上述代码拷贝到 afterselchange 后，在mouseleavecell中加人代码:

Tables("表A").Cols("第二列").DataMap = Nothing

有如下情况：

1:重新启动狐表，第二列的数据如图。点击第九行的第二列后第二列 1~7行数据都没有了。

2:第二列的数据不可编辑

此主题相关图片如下：捕获.png

此主题相关图片如下：捕获1.png

[此贴子已经被作者于2020/2/1 11:19:40编辑过]

tld

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

等级：三尾狐帖子：739 积分：7694 威望：0 精华：0 注册：2017/2/3 10:29:00

Post By：2020/2/1 15:16:00 [显示全部帖子]

老师，我把例子传上来，点击第二列，就会有许多行第二列的内容被隐藏

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

主题：数据表字典