以文本方式查看主题 -  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=96478)

--  作者：hebxtshhyj --  发布时间：2017/2/21 17:54:00 --  问题在哪里？ dim dr as datarow = e.datarow  If  dr("采购单价") IsNot Nothing  And dr("采购金额") Is Nothing Then             dr("采购金额") = dr("采购数量") * dr("采购单价")         ElseIf             dr("采购单价") IsNot Nothing  And  dr("采购金额") IsNot Nothing Then             dr("采购单价") = dr("采购金额") / dr("采购数量")         Else             dr("采购单价") = dr("采购金额") / dr("采购数量")         End If [此贴子已经被作者于2017/2/21 17:54:39编辑过]

--  作者：有点色 --  发布时间：2017/2/21 18:45:00 --   Dim dr As DataRow = e.DataRow systemready = False Select Case e.DataCol.name     Case "采购单价"         If e.NewValue > 0 Then             If dr.IsNull("采购数量") = False Then                 dr("采购金额") = dr("采购数量") * dr("采购单价")             ElseIf dr.IsNull("采购金额") = False Then                 dr("采购数量") = dr("采购金额") / dr("采购单价")             End If         End If     Case "采购数量"         If e.NewValue > 0 Then             If dr.IsNull("采购单价") = False Then                 dr("采购金额") = dr("采购数量") * dr("采购单价")             ElseIf dr.IsNull("采购金额") = False Then                 dr("采购单价") = dr("采购金额") / dr("采购数量")             End If         End If     Case "采购金额"                 If dr.IsNull("采购单价") = False AndAlso dr("采购单价") > 0 Then             dr("采购数量") = dr("采购金额") / dr("采购单价")         ElseIf dr.IsNull("采购数量") = False AndAlso dr("采购数量") > 0 Then             dr("采购单价") = dr("采购金额") / dr("采购数量")         End If End Select systemready = True

--  作者：hebxtshhyj --  发布时间：2017/2/21 21:00:00 --   systemready 是什么意思？

--  作者：有点蓝 --  发布时间：2017/2/21 21:12:00 --   到帮助搜索关键字“systemready”