重置列后只重新计算第一行数据？怎么解决？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 重置列后只重新计算第一行数据？怎么解决？？

共有1926人关注过本帖树形打印复制链接主题：重置列后只重新计算第一行数据？怎么解决？？

bluev

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

加好友

发短信

等级：幼狐帖子：112 积分：1608 威望：0 精华：0 注册：2008/11/3 7:25:00

重置列后只重新计算第一行数据？怎么解决？？ 发帖心情

Post By：2017/1/18 10:17:00 [只看该作者]

重置列后只重新计算第一行数据或选定行数据？？

DataColChanged 代码：

If e.DataCol.Name = "产品名称" Then
Dim dr As DataRow = Tables("测试").Current.DataRow
dr("产量") = DataTables("汇总数据").Compute("Sum(产量)","[日期] = #" & dr("日期") & " # And [夜班] = '" & dr("夜班") & "' And [生产线] = '" & dr("生产线") & "'")
End If

求教怎么改正？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/18 10:21:00 [只看该作者]

If e.DataCol.Name = "产品名称" Then
Dim dr As DataRow = e.DataRow
dr("产量") = DataTables("汇总数据").Compute("Sum(产量)","[日期] = #" & dr("日期") & " # And [夜班] = '" & dr("夜班") & "' And [生产线] = '" & dr("生产线") & "'")
End If