以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  帮忙看一下代码，条件完成以后是否继续执行下面代码。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172238)

--  作者：夜点蚊香 --  发布时间：2021/9/30 22:01:00 --  帮忙看一下代码，条件完成以后是否继续执行下面代码。 Dim dr As DataRow = Tables("课程缴费表").current.DataRow If dr("现有效期") <> Nothing And dr("现有效期") >= dr("开始时间") Then \'判断主表状态     Messagebox.Show("缴费编号: " & dr("缴费编号") & " ,有效期开始时间,不能小于当前正在使用的有效期,请修改有效期!如果继续开卡请点取消.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)     e.Cancel = True \'那么取消输入并提示用户 Else     Forms("是否开卡窗口").Close()     Tables("课程缴费表").Current.Save() End If 不继续执行取消（黄色代码） 帮忙改一下，如果继续执行开卡功能，执行绿色代码 [此贴子已经被作者于2021/9/30 22:01:47编辑过]

--  作者：有点蓝 --  发布时间：2021/10/4 21:01:00 --   判断MessageBox结果参考：http://www.foxtable.com/webhelp/topics/0326.htm