导航快速切换时偶尔会报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用目录树做成导航主窗口，点击目录树节点，打开不同的窗口。正常速度切换是没有问题，但是如果几个节点之间点击的速度比较快就是切换的比较快的时候，偶尔会出现“不存在名称为“窗口_Table1”的Table！”提示错误，请问是为什么？后面的提示问题出现位置有时是窗口的AfterLoad有是目录树的ＮｏｄｅMouseClick。

目录树点击节点的代码

Select Case e.Node.Text

Case "报告发送"

If DataTables.Contains("报告信息") = False Then

DataTables.Load("报告信息")

End If

MainTable = Tables("报告信息")

Forms("报告发送").open()

If Forms("报告发送").Opened Then

Dim Filter As String = "[报告进度] = '报告已批准' AND [已打印] = 1 AND [已发送] = 0"

With DataTables("报告发送_Table1")

.LoadFilter = ""

.LoadFilter = Filter

.LoadTop = 50

.LoadPage = 0

.Loadover = "报告编号"

.Load

Forms("报告发送").Controls("TextBox页数页码").text = "1/" & DataTables("报告发送_Table1").Totalpages

End With

Tables("报告发送_Table1").AutoSizeCols()

End If

End select

现在错误提示是在窗口的AfterLoad，未将对象引用设置到对象的实例。

Dim t As Table = Tables("报告发送_Table1")

t.DataTable.GlobalHandler.BeforeShowContextMenu = True

t.ExtendLastCol = True

t.Cols.Frozen = 1

t.Sort = "报告编号"

Dim tb1 As WinForm.Table = e.Form.Controls("Table1")

For Each c As Col In tb1.Table.Cols

c.TextAlign = TextAlignEnum.Center

t.Cols("报告编号").AllowEdit = False

t.Cols("样品类别").AllowEdit = False

t.Cols("检测类别").AllowEdit = False

t.Cols("送样方式").AllowEdit = False

t.Cols("委托方").AllowEdit = False

Dim rgd1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

rgd1.Table = t'指定绑定表

rgd1.Build() '重新生成记录窗口

Dim g1 = Forms("报告发送").Controls("RecordGrid1").BaseControl

g1.AutoSizeRows

Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")

rgd2.Table = t'指定绑定表

rgd2.Build() '重新生成记录窗口

Dim g2 = Forms("报告发送").Controls("RecordGrid2").BaseControl

g2.AutoSizeRows

Dim rgd3 As WinForm.RecordGrid = e.Form.Controls("RecordGrid3")

rgd3.Table = t'指定绑定表

rgd3.Columns = "结果已通知|客户通知反馈报告发送方式|客户通知反馈具体要求|客户通知反馈其他"

rgd3.Build() '重新生成记录窗口

Dim g3 = Forms("报告发送").Controls("RecordGrid3").BaseControl

g3.AutoSizeRows

If User.Group = "质控综合部" Or user.Group = "管理层" Or User.Group = "行政部" Then

Return

Else

Tables("报告发送_Table1").AllowEdit = False

For Each c As WinForm.Control In e.Form.Controls

If Typeof c Is WinForm.Button Then

c.Enabled = False

End If

提示：“报告发送已关闭，无法调用其中的空间“Table1””

是不是因为切换的太快，窗口已经切换到下一个窗口，但上一个程序中窗口的形成还未完成。

老师帮我看下，当用导航在表A和表B之间快速切换的时候，会报错。

当用导航在表A和表B之间快速切换的时候，会报错。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:快速切换.rar

可以了，但是新出来一个问题，即第一次打开的页面必须双击打开。

主题：导航快速切换时偶尔会报错