- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 有个小小疑问,知道的告诉我一下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3277)
-- 发布时间：2009/6/25 9:45:00
-- 有个小小疑问,知道的告诉我一下
我将窗口设置为自动打开,停靠模式,可以关闭
为什么在每次关闭文件的时候会出现这样的对话窗
此主题相关图片如下：tt截图未命名.bmp
但当我选把窗口关闭,然后在关闭文件时,又不会出现上面的错误窗口....
有人碰到过吗?
-- 发布时间：2009/6/25 9:56:00
--
发上来看看，可能是bug.
但你的代码应该也有问题。
-- 发布时间：2009/6/25 10:03:00
--
估计是窗口代码有问题
-- 发布时间：2009/6/25 10:13:00
--
仔细看下你的关闭文件beforecloseproject的代码中的内容，或maintablechanged的代码，还有窗口事件beforeclose中的代码，甚至有些窗口leave事件中等地方的代码，都容易产生类似的问题～
-- 发布时间：2009/6/25 10:19:00
--
很大文件,,,,,,
窗口文本控件中的TextChanged代码
with e.Form
Dim dst As WinForm.DataList = .Controls("DataList1")
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.RowFilter = "[定单号] Like \'*" & txb1.text & "*\' or [成品型号] Like \'*" & txb1.text & "*\'"
end with
KeyDown代码
Dim dst as WinForm.DataList = e.form.Controls("DataList1")
If e.KeyCode = Keys.Up Then
dst.Position = dst.Position - 1
End If
If e.KeyCode = Keys.Down Then
dst.Position = dst.Position + 1
End If
If e.KeyCode = Keys.Enter Then
Dim dr2 as row = Tables("采购定单").Current
Dim dr1 as Datarow = dst.Current
dr2("生产任务单") = dr1("生产任务单")
Tables("采购定单").select(Tables("采购定单").Rows.Count - 1,8)
End If
Enter代码
e.sender.value = nothing
就这么多代码了，没有别的了
-- 发布时间：2009/6/25 10:22:00
--
谢谢，你所讲的这三个事件中都没有代码。。。。
-- 发布时间：2009/6/25 10:30:00
--
其怪啊，当我把窗口模式设置为独立时，，就没有错误窗口。。。。
-- 发布时间：2009/6/25 10:40:00
--
以下是引用卟离卟弃在2009-6-25 10:30:00的发言：
其怪啊，当我把窗口模式设置为独立时，，就没有错误窗口。。。。
其怪啊，当我把窗口模式设置为独立时，，就没有错误窗口。。。。 
好像看到过类似的问题哟～ 呵呵 如果不改为独立窗口，而在beforecloseproject中先关闭所有模式窗口呢？
-- 发布时间：2009/6/25 10:46:00
--
楼主是最新版吗?模式窗口的问题贺老师改过的啊
-- 发布时间：2009/6/25 11:39:00
--
是停靠。。。。