以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口控件事件问题 急  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71611)
--  作者：bestorange
--  发布时间：2015/7/14 21:53:00
--  窗口控件事件问题 急

之前项目中签到窗口的按钮控件事件，专家指导下编写的命令，我精简了一下现在是：

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

 

当我从窗口中每个组合框中选择内容时，我发现说绑定的 陪练课时统计表中 就会自动在绑定列下新增一行 录入所选数据。

我想改成当我点击按钮以后才录入数据，不然就算选错了 或者是点错了   陪练课时统计表中 都会增加一行数据。

 
--  作者：bestorange
--  发布时间：2015/7/14 21:54:00
--  

也就是 如何设置 不点确定 不保存内容呢 我以前记得看到过，但是太多的命令了  实在想不起来了

 
--  作者：大红袍
--  发布时间：2015/7/14 21:54:00
--  
 mr.Save 写在后面就行。