以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问题在哪里?  (http://foxtable.net/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