主题：表事件，调用目标发生错误

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("课时费")
        e.DataRow("乐理课时") = e.DataRow("乐理课时") + e.DataRow("新加乐理")
        e.DataRow("乐理学费余额") = e.DataRow("乐理学费余额") + e.DataRow("乐理新缴")
        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("课时费")
            e.DataRow("剩余课时") = e.DataRow("剩余课时") + e.DataRow("新加课时")
            e.DataRow("学费余额") = e.DataRow("培训新缴") + e.DataRow("学费余额")

        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("课时费")
                e.DataRow("陪练课时") = e.DataRow("陪练课时") + e.DataRow("新加陪练")
                e.DataRow("陪练费余额") = e.DataRow("陪练新缴") + e.DataRow("陪练费余额")
        End If
    End If
End If

Select Case e.DataCol.Name
    Case "新加课时"
            e.DataRow("培训新缴") = e.DataRow("课时费") * e.DataRow("新加课时")
                End  Select

Select Case e.DataCol.Name
    Case "新加乐理"
        e.DataRow("乐理新缴") = e.DataRow("乐理费") * e.DataRow("新加乐理")

    End  Select

 Select Case e.DataCol.Name
        Case "新加陪练"
                e.DataRow("陪练新缴") = e.DataRow("陪练费") * e.DataRow("新加陪练")

        End  Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:知音琴行管理系统修订版.foxdb

在学员一览表中

 贴出密码

dudu18

 

单击学员姓名 进入资料录入窗口，，在窗口中选择课程，课时，应自动计算缴费金额，有时计算有时不计算 还会出现程序卡死

 没测试出你的问题。

 

 出问题你学习一下调试 http://www.foxtable.com/help/topics/1485.htm

 

如果我把表事件改到窗口事件里面呢？

在选择乐理程度时 出错

有的学生就没问题 有的学生点击学生姓名进入窗口后，选择课程和课时数，金额始终为0

有的学生就没问题 有的学生点击学生姓名进入窗口后，选择课程和课时数，金额始终为0

 

新加乐理 列，改成数值列。