我的项目中有这么一个情况，表B中有一列数据，每填入一个数据，都会复制到表A，并把这个数据均分到表A中的12个列中，表A的这12个列里面，每有一个数据变动都会引起同一列其他数据的变化。
部分代码如下：
If e.DataCol.Name ="整体计划合计_金额" Then
Dim dr As DataRow = e.DataRow
Dim jfe As Single = dr("整体计划合计_金额")/12
dr("一月_金额")= jfe
dr("二月_金额")= jfe
dr("三月_金额")= jfe
dr("四月_金额")= jfe
dr("五月_金额")= jfe
dr("六月_金额")= jfe
dr("七月_金额")= jfe
dr("八月_金额")= jfe
dr("九月_金额")= jfe
dr("十月_金额")= jfe
dr("十一月_金额")= jfe
dr("十二月_金额")= jfe
End If
If e.DataCol.Name = "一月_金额" Then
'''''''很多代码‘’‘’
end if
If e.DataCol.Name = "二月_金额" Then
'''''''很多代码‘’‘’
end if
If e.DataCol.Name = "三月_金额" Then
'''''''很多代码‘’‘’
end if
If e.DataCol.Name = "四月_金额" Then
'''''''很多代码‘’‘’
end if
......................
原因为整体计划合计会均分到12个月数据里，这12个月里的数据变动又要引起很多运算量。
目前的状况是整体计划合计只要一动一个数据就要卡5分钟左右，请问如何优化？
加好友 
发短信
Post By：2019/1/13 13:45:00 [只看该作者]
