datacolchange的问题,单行更改沒问题,整列刷新出错-已解決 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：datacolchange的问题,单行更改沒问题,整列刷新出错-已解決