统计表行已锁，如何同步A、B表中列数据到统计列统计代码
If e.DataCol.Name = "工单号" Then
e.DataRow("坑点") = DataTables("A表").Compute("Sum(坑点)","[工单号] = '" & e.NewValue & "'") + DataTables("B表").Compute("Sum(坑点)","[工单号] = '" & e.NewValue & "'")
e.DataRow("黑点") = DataTables("A表").Compute("Sum(黑点)","[工单号] = '" & e.NewValue & "'") + DataTables("B表").Compute("Sum(黑点)","[工单号] = '" & e.NewValue & "'")
End If
A\B表代码
Select Case e.DataCol.Name
Case "坑点","黑点"
Dim pr As DataRow
pr = DataTables("统计").Find("工单号 = '" & e.DataRow("工单号") & "'")
If pr IsNot Nothing Then
DataTables("统计").DataCols("工单号").RaiseDataColChanged(pr)
End If
End Select
加好友 
发短信
Post By：2020/3/2 18:05:00 [显示全部帖子]
此主题相关图片如下：qq截图20200305084609.jpg