主题：功能问题请教红袍大师

不过就是找出对应的学院和单价列，然后进行加减而已：

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

我不知道每一课减多少，否则帮你写好。

个人觉得： 你这个系统是是很难完成的，不如停下脚步，踏踏实实看一遍视频教程和帮助，你的工作效率和质量会提供nnn倍，你现在完全依赖别人设计，帮你写好的代码，也看不懂，东拼西凑，后患无穷。