以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99008)
--  作者：lgh08222003
--  发布时间：2017/4/10 23:48:00
--  [求助]
下面是在datacolchanged中的代码，怎么转换到窗体上的按钮上面，点击按钮就执行一次，不点击按钮，单元格内容赋值了也不执行啊
If e.DataCol.Name =  "潜水泵故障_品牌" Then
    Dim dr As DataRow = DataTables("潜水泵泵头库存明细表").Find("潜水泵故障_品牌 = \'" & e.DataRow("潜水泵故障_品牌") & "\'" )
    If dr IsNot Nothing Then
        dr("损坏数量") =  dr("损坏数量")+1
    End If
End If
--  作者：狐狸爸爸
--  发布时间：2017/4/11 8:09:00
--  
先看一下：
--  作者：有点色
--  发布时间：2017/4/11 8:47:00
--  
Dim r As Row = Tables("表A").Current
Dim dr As DataRow = DataTables("潜水泵泵头库存明细表").Find("潜水泵故障_品牌 = \'" & r("潜水泵故障_品牌") & "\'" )
If dr IsNot Nothing Then
    dr("损坏数量") =  dr("损坏数量")+1
End If
--  作者：有点色
--  发布时间：2017/4/11 8:49:00
--  

你的逻辑应该有问题，计算的时候，不应该累加1，尽量用compute函数进行统计。先理清你的计算逻辑。