不过就是找出对应的学院和单价列,然后进行加减而已:
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倍,你现在完全依赖别人设计,帮你写好的代码,也看不懂,东拼西凑,后患无穷。