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

。。。能否帮忙修改一下啊？

大师大师 还在不在啊

 

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

 

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倍，你现在完全依赖别人设计，帮你写好的代码，也看不懂，东拼西凑，后患无穷。

多谢多谢，每节课的课时费，我单独建了个科目分类表

我知道自己是顺序搞颠倒了  应该先从基本的学起。

目前就是临时先搞定这个程序先使用  然后会慢慢学的

我现在确定按钮的事件命令：

 

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
    MessageBox.Show(md &" 签到成功","提示")
    Dim g As New GroupTableBuilder("统计表1", DataTables("教师签到表"))
    g.Groups.AddDef("姓名")
    g.Groups.AddDef("授课内容")
    g.Groups.AddDef("学员名称")
    g.Groups.AddDef("课时数")
    g.Totals.AddDef("姓名", AggregateEnum.Count,"签到次数")
    g.Build(False)
   
 
    Dim f As new Filler
    f.SourceTable = DataTables("统计表1") '指定数据来源
    f.SourceCols = "姓名,授课内容,学员名称,签到次数" '指定数据来源列
    f.DataTable = DataTables("签到统计表") '指定数据接收表
    f.DataCols = "第一列,第二列,第三列,第四列" '指定数据接收列
    f.Fill() '填充数据
End If

把Dim dr As DataRow = DataTables("学员一览表").Find("辅导老师 = '" & md("姓名") & "' And 课程 = '" & md("授课内容") & "'")加进去就可以吗？

find之后，然后计算和赋值给对应的行，先去打基础好吗？