If DouFAuxQtyMust <> 0 And c = 1 Then
a = (DouFDiscountAmt1 + DouFDiscountAmt2) / DouFAuxQtyMust
b = DouFDiscountAmt1 / (DouFDiscountAmt1 + DouFDiscountAmt2)
End If
Private Sub m_BillTransfer_GridChange(ByVal Col As Long, ByVal Row As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean)
'TODO: 请在此处添加代码响应事件 GridChange
Dim DouFauxqty As Double
Dim DouFAuxQtyMust As Double
Dim DouFDiscountAmt1 As Double
Dim DouFDiscountAmt2 As Double
Dim i As Long
'这是为了获得值的,大家不用管
i = Row
With m_BillTransfer
DouFauxqty = Val(.GetGridText(i, m_Fauxqty))
DouFAuxQtyMust = Val(.GetGridText(i, m_FAuxQtyMust))
DouFDiscountAmt1 = Val(.GetGridText(i, m_FDiscountAmt1))
DouFDiscountAmt2 = Val(.GetGridText(i, m_FDiscountAmt2))
If DouFAuxQtyMust <> 0 Then
a = (DouFDiscountAmt1 + DouFDiscountAmt2) / DouFAuxQtyMust
b = DouFDiscountAmt1 / (DouFDiscountAmt1 + DouFDiscountAmt2)
End If
If m_Fauxqty = Col Then
DouFDiscountAmt1 = a * DouFauxqty * b
DouFDiscountAmt2 = a * DouFauxqty * (1 - b)
'赋值
.SetGridText i, m_FDiscountAmt1, DouFDiscountAmt1
.SetGridText i, m_FDiscountAmt2, DouFDiscountAmt2
End If