主题：[求助]DataColChanged数据自动更新

Select e.DataCol.Name

Case "借方_数量" ,"借方_单价"  
        If  e.DataRow("审核") = True Then
        Else
            If e.DataRow("借方_数量") <> 0 And  e.DataRow("借方_金额") = 0 Then

SystemReady = False
                e.DataRow("借方_金额")  =   e.DataRow("借方_数量") * e.DataRow("借方_单价")
SystemReady = true
            End If
        End If

 Case "借方_金额" 

        If  e.DataRow("审核") = True Then
        Else
             If e.DataRow("借方_数量") <> 0 Then

SystemReady = False
                e.DataRow("借方_单价") =  e.DataRow("借方_金额") / e.DataRow("借方_数量")
SystemReady = true
            End If
        End If
End Select