之前项目中签到窗口的按钮控件事件，专家指导下编写的命令，我精简了一下现在是：
Dim mr As Row =Tables("陪练课时统计表").Current
Tables("陪练课时统计表").AddNew()
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("授课内容") & "' and 姓名 = '" & mr("学员姓名") & "'")
Dim dr2 As DataRow = DataTables("课类分类表").Find("科目 = '" & mr("授课内容") & "'")
If dr1 Is Nothing OrElse dr2 Is Nothing Then
messagebox.show("输入错误")
End If
dr1("陪练费余额") = dr1("陪练费余额") - dr2("课时费")
MessageBox.Show(mr("教师姓名") &" 签到成功","提示")
End If
当我从窗口中每个组合框中选择内容时，我发现说绑定的 陪练课时统计表中 就会自动在绑定列下新增一行 录入所选数据。
我想改成当我点击按钮以后才录入数据，不然就算选错了 或者是点错了 陪练课时统计表中 都会增加一行数据。
加好友 
发短信
Post By：2015/7/14 21:53:00 [显示全部帖子]
