Select Case e.DataCol.Name Case "还款_已还金额","借款_总金额" Dim has As Double = IIF(e.DataRow.Isnull("还款_已还金额"),0,e.DataRow("还款_已还金额") ) Dim all As Double = IIF(e.DataRow.Isnull("借款_总金额"),0,e.DataRow("借款_总金额") ) If has - all < 0 Then DataTables("应收账款").DataCols("还款_已还金额").RaiseDataColChanged e.DataRow.SetError("借款_未还金额", "还款不能超过借款!!!") Else e.DataRow.SetError("借款_未还金额","") End If End Select
|