专家坐堂-窗口变灰问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口变灰问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33521)

--  作者：410109296
--  发布时间：2013/5/20 11:05:00
--  窗口变灰问题

我的窗口的Afterclose中有如下代码：

If Tables("模块权限").DataTable.HasChanges Or Tables("控件权限").DataTable.HasChanges Then
    Tables("控件权限").DataTable.Save
    Tables("模块权限").DataTable.Save
    MessageBox.Show("授权成功")
End If

在关闭窗口的时候出现
此主题相关图片如下：11.jpg

如何能不变灰呢

--  作者：XYT
--  发布时间：2013/5/20 11:11:00
--

你点确定后应该没有了吧

--  作者：狐狸爸爸
--  发布时间：2013/5/20 11:14:00
--

If Tables("模块权限").DataTable.HasChanges Or Tables("控件权限").DataTable.HasChanges Then
    Tables("控件权限").DataTable.Save
    Tables("模块权限").DataTable.Save

    e.Form.BaseForm.Hide
    MessageBox.Show("授权成功")
End If

--  作者：410109296
--  发布时间：2013/5/20 11:18:00
--

不行，加入代码后，报错

此主题相关图片如下：222.jpg

--  作者：410109296
--  发布时间：2013/5/20 11:23:00
--

ok了，e.form.baseform.hide 的位置很重要，必须按狐爸给的位置