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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 识别后引入数据

共有1855人关注过本帖树形打印复制链接主题：识别后引入数据

zhangning

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

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

识别后引入数据 发帖心情

Post By：2017/7/18 14:58:00 [显示全部帖子]

图1

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

图2

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

识别：图1中，列名 8/1 的意思是8月1日，8/2的意思是8月2日，以此类推，现在是8月，以后要设置成动态修改列标题，会成为9月，10月、、、、，

要在“期初可干台数”列引入图2中相对用的数字，

不会写代码，麻烦老师帮帮忙，谢谢！

zhangning

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

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/19 9:23:00 [显示全部帖子]

老师，在图1中，我想将在“实时在库台数”设置代码引出，

具体的意思是：实时在库台数=期初可干台数+所有”*_入库“之和 -所有”*_不良“之和

我写的代码有错误，请老师帮改改，谢谢！

If e.DataCol.Name = "部品ID" Then '如果内容发生变动的是品名列

If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空

e.DataRow("实时在库台数") = Nothing '那么清空此行单价列的内容

else

e.DataRow("实时在库台数") = e.DataRow("期初可干台数") + DataTables("组装入库明细").Compute("Sum(*_入库)")- DataTables("组装入库明细").Compute("Sum(*_不良)")

End If

zhangning

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

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/19 14:33:00 [显示全部帖子]

老师，有关1.是以月为单位，有31列，有没有简单的方法？

2.增加2个汇总列，一个名“入库汇总”，一个名“不良汇总”，请问老师，如何写代码？

主题：识别后引入数据