主题：红袍大师进

就是找出对应的行进行加减而已，没有多难的，与其被动等待，不如主动出击，看看论坛置顶的视频教程哦，《编程基础》《基本类型》《事件编程》看熟就行了。

Dim mr As Row =Tables("教师签到表").Current
Dim Result As DialogResult
Result = MessageBox.Show(mr("姓名") &" 要签到吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    mr.Save
    '找到对应的学员这一行,改怎么减就怎么减
    Dim dr1 As DataRow = DataTables("学员一览表").Find("辅导老师 = '" & mr("姓名") & "' And 课程 = '" & mr("授课内容") & "'")
    Dim dr2 As DataRow = DataTables("课类分类表").Find("课程 = '" & mr("授课内容") & "'")
    dr1("学费余额") = dr1("学费余额") - dr2("课时费")
    MessageBox.Show(mr("姓名") &" 签到成功","提示")
End If