此主题相关图片如下：2121.png
上图为绑定"学员一览表"的"学员资料"窗口。
求助：
1、新添加了“缴费”按钮，图中红框内各控件所录入的内容改为单击"缴费"按钮才代入绑定的"学员一览表"各列。
2、3个课时和3个缴纳后面的文本框中内容，可否每次缴费完成后，重置为0或空白。（余额后面文本框中内容保留）
3、“保存修改”按钮只用于保存红框之外的其他数据的修改。
4、单击"缴费"按钮，分别将“学员一览表”中的"课程"、"培训新缴"、"姓名"
"陪练级别"、"陪练新缴"、"姓名"
"乐理程度"、"乐理新缴"、"姓名" 新修改的三项记录代入到"经营相关账目"中的"名目"、"账目金额"、"相关人员"中，如某一项未修改，则不代入。
我尝试编写了一些"缴费"按钮的Click事件后，结果原先正常的"学员一览表"中各列数据的录入无法正常从窗口录入了。是不是窗口中的命令跟表事件命令冲突了？
麻烦大师指点！万分感谢！我会在回帖中把我编写的"缴费"按钮事件命令附上。
"学员一览表"表事件如下：
DoubleClick事件：
If e.Col.Name = "姓名" Then
Forms("学员资料").Show
End If
If e.Col.name = "辅导老师" Then
Dim dr As DataRow = DataTables("教师一览表").find("姓名 = '" & e.Row("辅导老师") & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("教师一览表").FindRow(dr)
If wz >= 0 Then
Tables("教师一览表").Position = wz
Forms("教师资料").Open()
End If
End If
End If
DrawCell事件：
If e.Row("学费余额") < 100 Then
e.Style = "费用不足"
End If
AfterEdit事件：
If e.Col.Name = "剩余课时" Then
Dim Val As Integer = e.Row("剩余课时")
If Val = 0 Then
MessageBox.Show("已无剩余课时, 可以下山了!", "提示")
ElseIf Val = 1 Then
MessageBox.Show("仅剩最后一课时,请与学员家长联系续费.", "提示")
ElseIf Val < 2 Then
MessageBox.Show("剩余" & Val & "课时" & ", 已扣除本次课时.", "提示")
End If
End If
DataColChanged事件：
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/25 8:21:00 [显示全部帖子]
