| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://www.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函数进行统计。先理清你的计算逻辑。 |