以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在表的datacolchaning事件中,判断弹出的某个窗口上的按钮被点击?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131572)

--  作者:ycwk
--  发布时间:2019/3/1 14:55:00
--  如何在表的datacolchaning事件中,判断弹出的某个窗口上的按钮被点击?
If Forms("win_科室字典修改确认窗口").Controls("btn_确定").   ???
--  作者:有点甜
--  发布时间:2019/3/1 15:03:00
--  

点击的时候,click事件,用变量记录。

 

vars("被点击") = true

 


--  作者:ycwk
--  发布时间:2019/3/1 15:07:00
--  
那我在表的datacolchanging事件中,如何判断被点了呢?  用定时器不定查询  var("被点击")   ?? 这样不好吧
--  作者:有点甜
--  发布时间:2019/3/1 15:12:00
--  

直接在datacolchanging判断就行啊

 

If vars("被点击") = True Then


--  作者:ycwk
--  发布时间:2019/3/1 15:22:00
--  
If e.DataCol.name = "楼" Then    \'如果修改的是当前表的  "楼" 字段的话
      Forms("win_科室字典修改确认窗口").Show        \'窗口里面有  "确定"  和   "取消"  两个按钮
      If vars("被点击") =true  then      \'在上述窗口关闭后判断点击的是“确定” 还是“取消”  按钮 

      end if 

End If

--  作者:ycwk
--  发布时间:2019/3/1 15:34:00
--  
在datacolchanging 中如下代码:

vars("点击确定")=False

If e.DataCol.name = "楼" Then
    Forms("win_科室字典修改确认窗口").Show

      If vars("点击确定")=True Then
         msgbox(1)
      End If 

  
End If


在窗口 win_科室字典修改确认窗口    的  button  中如下代码:

vars("点击确定")=True
Forms("win_科室字典修改确认窗口").Close


但是不行,我在窗口中点击"确定"按钮后  msgbox(1) 没弹出来

[此贴子已经被作者于2019/3/1 15:34:26编辑过]

--  作者:有点甜
--  发布时间:2019/3/1 15:51:00
--  

 

窗口【win_科室字典修改确认窗口】改成模式窗口。