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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表取值问题

共有2300人关注过本帖树形打印复制链接主题：跨表取值问题

15666282205

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

加好友

发短信

等级：一尾狐帖子：495 积分：3918 威望：0 精华：0 注册：2019/1/13 10:12:00

跨表取值问题 发帖心情

Post By：2019/7/26 8:17:00 [只看该作者]

老师，请您看实例：财务管理-压减进度表-应收账款进度表-应收账款，想实现的功能：应收账款进度表如何自动从应收账款自动取数呢？同时如果是负数改为显示0.谢谢老师！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小企业管理系统.foxdb

有点蓝

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

加好友

发短信

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

Post By：2019/7/26 8:43:00 [只看该作者]

应收账款进度表datacolchanged

If e.DataCol.Name = "编码" Then

If e.NewValue = "" Then

For Each dc As DataCol In e.DataTable.DataCols

If dc.Name.EndsWith("月") Then e.DataRow(dc.Name) = Nothing

Else

For Each dc As DataCol In e.DataTable.DataCols

If dc.Name.EndsWith("月") Then

Dim dr As DataRow = DataTables("应收账款" & dc.Name).Find("编码='" & e.NewValue & "'")

If dr IsNot Nothing Then

e.DataRow(dc.Name) = IIF(dr("余额")>0,dr("余额"),0)

End If

15666282205

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

加好友

发短信

等级：一尾狐帖子：495 积分：3918 威望：0 精华：0 注册：2019/1/13 10:12:00

Post By：2019/7/26 11:01:00 [只看该作者]

老师，您的代码很专业，好不容易看懂了一点，本来想学习您的方法自己再扩展，可是您的不好学啊。我实际要实现的功能：比如导入7月的应收账款，编码列取值7月的，因为编码每个月都不一样，要用最新的；关联列取值科目管理的关联，要区别关联方；年初余额取7月的年初余额，然后接着运行您的代码，这样就完美了。您也可以告诉我怎么单独取一列的值，这样虽然麻烦，但我可以灵活运用，自己搞定。另外，您看看，导入应收账款数据时，比如导入7月的，让他接着打开7月的窗口，现在需要手动去点开，我研究了半天也没搞定。