[浏览完整版]
标题：请大神指教
1楼
dknt 发表于：2023/9/25 16:12:00我有这个累加计算，用码编写的，位置写在datacolchanged里面代码如下：
此主题相关图片如下：wspuc-vuxj9.gif
此主题相关图片如下：2023-09-25_160334.png
Dim ljcz , dycz As Double
ljcz = e.DataRow("累计产值")
dycz = e.DataRow("当月产值")
If e.DataCol.Name = "当月产值" And e.DataRow.IsNull("累计产值") = True Or e.DataRow("累计产值") = 0 Then
ljcz = dycz
e.DataRow("累计产值") = ljcz
ElseIf e.DataCol.Name = "当月产值" And e.DataRow.IsNull("累计产值") = False Then
Dim sum As Integer = 0
For i As Integer = 0 To 1
ljcz = ljcz + dycz
sum = sum + i
Next
e.DataRow("累计产值") = ljcz - dycz
End If
以上代码结果如下图：
此主题相关图片如下：wspuc-vuxj9.gif无论怎么修改也无法让当月产值同等的数字进行累加
此主题相关图片如下：2023-09-25_160334.png而且代码如果没有 e.DataRow("累计产值") = ljcz - dycz其计算结果将会累加两次当月产值的数字。
请大佬指教，谢谢
2楼
有点蓝 发表于：2023/9/25 16:23:00这代码看的稀里糊涂的。截多几行表格数据，然后使用文字说明要做什么功能吧
3楼
dknt 发表于：2023/9/25 17:17:00就是想累计计算“当月产值”的数据，将“当月产值”的数据累加到“累计产值”中
此主题相关图片如下：video_2023-09-25_171137.gif
此主题相关图片如下：video_2023-09-25_171137.gif但发现代码无法实现相同值“当月产值”的数据累加
4楼
有点蓝 发表于：2023/9/25 17:32:00请上传实例说明
5楼
dknt 发表于：2023/9/25 17:44:00就这个
6楼
dknt 发表于：2023/9/25 17:45:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
7楼
有点蓝 发表于：2023/9/25 20:14:00麻烦举例说明一下，比如填入什么数据，想得到什么结果
8楼
dknt 发表于：2023/9/26 11:37:00在“当月产值”字段填入双精度数据，在“累计产值”字段进行累加
9楼
有点蓝 发表于：2023/9/26 11:39:00请举例说明，比如第一行输入什么数据，得到什么结果。第二行输入什么数据，得到什么结果。
10楼
dknt 发表于：2023/9/26 11:40:00比如：
第一个月“当月产值”是100，“累计产值”就是100
第二个月“当月产值”是100，“累计产值”就是200
第三个月“当月产值”是100，“累计产值”就是300
以此类推，但是不同月份发生相同产值数据，“累计产值”字段数据不会进行累加，只有不同月的不同产值才会累加