[求助]请问此种功能怎么实现呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问此种功能怎么实现呢？

共有5076人关注过本帖树形打印复制链接主题：[求助]请问此种功能怎么实现呢？

chujihua

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

加好友

发短信

等级：婴狐帖子：12 积分：175 威望：0 精华：0 注册：2020/2/11 18:01:00

[求助]请问此种功能怎么实现呢？ 发帖心情

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

我有如下的表格，想实现的功能就是，当我在总表的输入录入完毕，科目选定后，能自动在匹配的子表相应的列填入父表的数据。

此主题相关图片如下：360截图16390403557262.png

chujihua

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

加好友

发短信

等级：婴狐帖子：12 积分：175 威望：0 精华：0 注册：2020/2/11 18:01:00

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

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

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

chujihua

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

加好友

发短信

等级：婴狐帖子：12 积分：175 威望：0 精华：0 注册：2020/2/11 18:01:00

Post By：2020/2/12 9:38:00 [显示全部帖子]

老师你好，我看了帮助文件，理解如下，输入后不起作用，我这里有几点疑问，还希望给予解答：1、这个代码应该在哪个表输入？2、需要进行表格关联吗？如果需要关联，应该是怎么个关联法？3、代码中的“e.NewValue”，是应该改成我的表名吗，我在代码输入时改成我的表名提示错误。

If e.DataCol.Name = "建行_科目" Then 如果建行_科目的列内容变动

If e.NewValue > "1" Then 而且变动后的数值是1（我设置的数据字典“1”为行政运行）

Dim r As Row = Tables(e.NewValue).addnew 不明白

r("凭证号") = e.DataRow("凭证号") 不明白

r("支出") = e.DataRow("支出") 不明白

End If

chujihua

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

加好友

发短信

等级：婴狐帖子：12 积分：175 威望：0 精华：0 注册：2020/2/11 18:01:00

Post By：2020/2/12 10:17:00 [显示全部帖子]

老师，输入后并没有反应。反倒是我在论坛看到这个代码改过输入后有反应，但是这个就有问题，1、支出栏不会过来。2、他只要我选中“行政运行”就会自动增加一行，而且我在总表删除一行后，那边不会自动删除。

If e.DataCol.name = "建行_科目" Then

If e.newvalue = “1”

Dim dr As DataRow = DataTables("B1").addnew

dr("凭证号") = e.DataRow("凭证号")

dr("支出") = e.DataRow("支出")

End If

chujihua

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

加好友

发短信

等级：婴狐帖子：12 积分：175 威望：0 精华：0 注册：2020/2/11 18:01:00

Post By：2020/2/12 10:34:00 [显示全部帖子]

好的，我以为看完使用指南就能实现我需要的这个功能，我马上去看开发指南。

下一主题 >> << 上一主题

主题：[求助]请问此种功能怎么实现呢？