If e.DataCol.Name = "乐理程度" Then
If e.NewValue Is Nothing Then
e.DataRow("乐理费") = Nothing
Else
Dim dr3 As DataRow
dr3 = DataTables("课类分类表").Find("科目 = '" & e.DataRow("乐理程度") & "'")
If dr3 IsNot Nothing Then
e.DataRow("乐理费") = dr3("课时费")
End If
End If
End If
If e.DataCol.Name = "课程" Then
If e.NewValue Is Nothing Then
e.DataRow("课时费") = Nothing
Else
Dim dr1 As DataRow
dr1 = DataTables("课类分类表").Find("科目 = '" & e.DataRow("课程") & "'")
If dr1 IsNot Nothing Then
e.DataRow("课时费") = dr1("课时费")
End If
End If
End If
If e.DataCol.Name = "陪练等级" Then
If e.NewValue Is Nothing Then
e.DataRow("陪练等级") = Nothing
Else
Dim dr2 As DataRow
dr2 = DataTables("课类分类表").Find("科目 = '" & e.DataRow("陪练等级") & "'")
If dr2 IsNot Nothing Then
e.DataRow("陪练费") = dr2("课时费")
End If
End If
End If
Select Case e.DataCol.Name
Case "新加课时"
e.DataRow("培训新缴") = e.DataRow("课时费") * e.DataRow("新加课时")
e.DataRow("剩余课时") = e.DataRow("剩余课时") + e.DataRow("新加课时")
e.DataRow("学费余额") = e.DataRow("培训新缴") + e.DataRow("学费余额")
End Select
Select Case e.DataCol.Name
Case "新加乐理"
e.DataRow("乐理新缴") = e.DataRow("乐理费") * e.DataRow("新加乐理")
e.DataRow("乐理课时") = e.DataRow("乐理课时") + e.DataRow("新加乐理")
e.DataRow("乐理学费余额") = e.DataRow("乐理学费余额") + e.DataRow("乐理新缴")
End Select
Select Case e.DataCol.Name
Case "新加陪练"
e.DataRow("陪练新缴") = e.DataRow("陪练费") * e.DataRow("新加陪练")
e.DataRow("陪练课时") = e.DataRow("陪练课时") + e.DataRow("新加陪练")
e.DataRow("陪练费余额") = e.DataRow("陪练新缴") + e.DataRow("陪练费余额")
End Select
加好友 
发短信
Post By：2015/7/24 16:36:00 [只看该作者]
