以文本方式查看主题

-  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
图片点击可在新窗口打开查看

但当我选把窗口关闭,然后在关闭文件时,又不会出现上面的错误窗口....


有人碰到过吗?

--  作者:lxl
--  发布时间:2009/6/25 9:56:00
--  

发上来看看,可能是bug.
但你的代码应该也有问题。


--  作者:yangming
--  发布时间:2009/6/25 10:03:00
--  
估计是窗口代码有问题
--  作者:mr725
--  发布时间: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
--  
图片点击可在新窗口打开查看其怪啊,当我把窗口模式设置为独立时,,就没有错误窗口。。。。
--  作者:mr725
--  发布时间:2009/6/25 10:40:00
--  
以下是引用卟离卟弃在2009-6-25 10:30:00的发言:
图片点击可在新窗口打开查看其怪啊,当我把窗口模式设置为独立时,,就没有错误窗口。。。。

图片点击可在新窗口打开查看  好像看到过类似的问题哟~ 呵呵  如果不改为独立窗口,而在beforecloseproject中先关闭所有模式窗口呢?


--  作者:yangming
--  发布时间:2009/6/25 10:46:00
--  
楼主是最新版吗?模式窗口的问题贺老师改过的啊
--  作者:卟离卟弃
--  发布时间:2009/6/25 11:39:00
--  
是停靠。。。。