我做了一个表"手雕汇总"

当中有工艺的数量,对应 名为"工价1"的表

做到计出对应款类的总工价

工艺分为1至4级,定级在手雕汇总的"级別"列,

而工价1就分开列出不同等级的单价

此主题相关图片如下：cos.jpg

代码如下

\'检测工值
If e.DataCol.Name = "款类" Then
    Dim nms() As String = { "开胚","跟形","跟重","网底","手工序","通花","瓜子耳","跟电雕" }
   
    Dim dt As  Row = Tables("手雕汇总").Current
    Dim LVS As String = e.DataRow("级別")
   
    If e.NewValue Is Nothing Then
        e.DataRow("A") = Nothing
    Else
        e.DataRow("A") = Nothing
       
        For Each nm As String In nms
            Dim col As String = dt(nm)
           
            e.DataRow("A") = e.DataRow("A") + DataTables("工价1").Compute( "sum(" & nm & LVS &  ")*" & col ,"[款类] = \'" & e.NewValue & "\'")
           
        Next
        e.DataRow("A") = e.DataRow("A") + e.DataRow("加收_工值")
    End If
End If

这段代码,在单行改变"款类"列时,计算答案是正确的

但若果"款类"列是整列刷新,计算答案就出錯了.

图中,"总工值"列,我是用表达式去做的,而"A"列就是用代码计算出來的

单行更改"款类"列,代码计算是正确

此主题相关图片如下：handneo.jpg

 

"款类"列-整列刷新后,"A"列的计算结果出錯了.

此主题相关图片如下：hand.jpg

这是什麼原因?是不是我代码有问题?

我把整个文件夾打包上传吧,因为是外部数据源,不知你们打开会不会出錯

外部数据源的地址是:  \\\\Jc82\\sys\\工作表\\TEAM.mdb

                            \\\\Jc82\\sys\\工作表\\STOTAL.MDB

                            \\\\Jc82\\sys\\工作表\\styletest.MDB

而图片也有外连的地址,你们沒有这个地址时,初打开会很慢的

我回家再上传,

因为备注型的列有是图片列

引用地址是\\\\192.168.0.228\\img\\工艺图

你电脑局域网沒有这个地址,就会卡一会的

把这个地址消去就不会卡的