Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共14 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:有个小小疑问,知道的告诉我一下

1楼
卟离卟弃 发表于:2009/6/25 9:45:00
我将窗口设置为自动打开,停靠模式,可以关闭

为什么在每次关闭文件的时候会出现这样的对话窗

图片点击可在新窗口打开查看此主题相关图片如下:tt截图未命名.bmp
图片点击可在新窗口打开查看

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


有人碰到过吗?
2楼
lxl 发表于:2009/6/25 9:56:00

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

3楼
yangming 发表于:2009/6/25 10:03:00
估计是窗口代码有问题
4楼
mr725 发表于:2009/6/25 10:13:00
仔细看下你的关闭文件beforecloseproject的代码中的内容,或maintablechanged的代码,还有窗口事件beforeclose中的代码,甚至有些窗口leave事件中等地方的代码,都容易产生类似的问题~
5楼
卟离卟弃 发表于: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

就这么多代码了,没有别的了
6楼
卟离卟弃 发表于:2009/6/25 10:22:00
谢谢,你所讲的这三个事件中都没有代码。。。。
7楼
卟离卟弃 发表于:2009/6/25 10:30:00
图片点击可在新窗口打开查看其怪啊,当我把窗口模式设置为独立时,,就没有错误窗口。。。。
8楼
mr725 发表于:2009/6/25 10:40:00
以下是引用卟离卟弃在2009-6-25 10:30:00的发言:
图片点击可在新窗口打开查看其怪啊,当我把窗口模式设置为独立时,,就没有错误窗口。。。。

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

9楼
yangming 发表于:2009/6/25 10:46:00
楼主是最新版吗?模式窗口的问题贺老师改过的啊
10楼
卟离卟弃 发表于:2009/6/25 11:39:00
是停靠。。。。
共14 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.