- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表取值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138238)
-- 发布时间：2019/7/26 8:17:00
-- 跨表取值问题
老师，请您看实例：财务管理-压减进度表-应收账款进度表-应收账款，想实现的功能：应收账款进度表如何自动从应收账款自动取数呢？同时如果是负数改为显示0.谢谢老师！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:小企业管理系统.foxdb |
-- 发布时间：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
Next
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
End If
Next
End If
End If
-- 发布时间：2019/7/26 11:01:00
--
老师，您的代码很专业，好不容易看懂了一点，本来想学习您的方法自己再扩展，可是您的不好学啊。我实际要实现的功能：比如导入7月的应收账款，编码列取值7月的，因为编码每个月都不一样，要用最新的；关联列取值科目管理的关联，要区别关联方；年初余额取7月的年初余额，然后接着运行您的代码，这样就完美了。您也可以告诉我怎么单独取一列的值，这样虽然麻烦，但我可以灵活运用，自己搞定。另外，您看看，导入应收账款数据时，比如导入7月的，让他接着打开7月的窗口，现在需要手动去点开，我研究了半天也没搞定。
-- 发布时间：2019/7/26 11:02:00
--
导入的数据
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:20190724应收账款.xls |
-- 发布时间：2019/7/26 11:06:00
--
科目管理在中间右边，您找找
-- 发布时间：2019/7/26 11:24:00
--
没看懂您的意思。以项目实例说明，需要什么效果？
编码每个月都不一样？ -- 意思是1月份编码是0001，二月份就变成了0002？那么这个2个编码如何关联？
-- 发布时间：2019/7/26 11:28:00
--
还是刚才上传的实例。编码每个月都增加或减少，编码本身不会改变，关联不变。比如6月截至到0010,7月可能增加到0015了，是这个意思。
-- 发布时间：2019/7/26 11:51:00
--
还是没看懂，截图举例说明。
比如0001这个编码，1月份怎么取值，正确结果是什么？2月份又怎么取值，正确结果是什么？3月份....
-- 发布时间：2019/7/26 14:23:00
--
实例
-- 发布时间：2019/7/26 14:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:201902.xls |
实例
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:201901.xls |