- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 表事件，调用目标发生错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72119)
-- 发布时间：2015/7/23 16:30:00
-- 表事件，调用目标发生错误
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 |
在学员一览表中
-- 发布时间：2015/7/23 16:31:00
--
贴出密码
-- 发布时间：2015/7/23 16:31:00
--
dudu18
-- 发布时间：2015/7/23 16:33:00
--
单击学员姓名 进入资料录入窗口，，在窗口中选择课程，课时，应自动计算缴费金额，有时计算有时不计算 还会出现程序卡死
-- 发布时间：2015/7/23 16:39:00
--
没测试出你的问题。
出问题你学习一下调试 http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2015/7/23 16:52:00
--
如果我把表事件改到窗口事件里面呢？
-- 发布时间：2015/7/23 16:54:00
--
在选择乐理程度时 出错
-- 发布时间：2015/7/23 17:33:00
--
有的学生就没问题 有的学生点击学生姓名进入窗口后，选择课程和课时数，金额始终为0
-- 发布时间：2015/7/23 17:33:00
--
有的学生就没问题 有的学生点击学生姓名进入窗口后，选择课程和课时数，金额始终为0
-- 发布时间：2015/7/23 17:46:00
--
在选择乐理程度时 出错
新加乐理 列，改成数值列。