Foxtable(狐表)用户栏目专家坐堂 → [求助]限制datacolchangged事件的运行


  共有2120人关注过本帖树形打印复制链接

主题:[求助]限制datacolchangged事件的运行

帅哥哟,离线,有人找我吗?
新航程小何
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
[求助]限制datacolchangged事件的运行  发帖心情 Post By:2015/5/25 10:14:00 [只看该作者]

各位老师,我现在遇到的问题,我在datcolchanged事件中,写了一段代码,又在一个模式窗口中写了相同功能的代码,当开始时间>结束时间的时候,会提示两次的messagebox,我想着能不能再两地都触发的时候,只执行模式窗口的代码。
datacolchangged代码:
Dim  r As Row=Tables("育苗计划.育苗计划明细").current
    Dim v1 As Date =r("开始时间")
    Dim v2 As Date =r("结束时间")
    If r("开始时间") <> Nothing And r("结束时间") <> Nothing Then
        If v2 < v1 Then
            messagebox.show("结束时间不能早于开始时间!","提示")
            r("结束时间")= Nothing
        End If
    End If
模式窗口:
Dim v1 As Date = e.Form.controls("dt1").value
Dim v2 As Date = e.Form.controls("dt2").value
If v1 < > Nothing And  v2 <> Nothing  Then
    If v2 < v1 Then
        messagebox.show("结束时间不能早于开始时间!","提示")
       e.form.controls("dt1").value = Nothing
   End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/25 10:18:00 [只看该作者]

呃,那你Datacolchanged事件的代码,就写到AfterEdit事件


 回到顶部
帅哥哟,离线,有人找我吗?
新航程小何
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
  发帖心情 Post By:2015/5/25 10:26:00 [只看该作者]

谢谢老师

 回到顶部