Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = True  \'隐藏导航栏

Dim PB As WinForm.Panel = e.Form.Controls("Panel4")
Dim Name As String = "流程管理"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
\'Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
\'PB.BaseControl.Controls.Clear
PB.BaseControl.Controls("panel5").visible = False
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
Forms(Name).BaseForm.left = (pb.width-Forms(Name).BaseForm.width) / 2
Forms(Name).BaseForm.top = (pb.height-Forms(Name).BaseForm.height) / 2

Forms("流程管理").Open

是独立窗口。改了两行窗口的afterload代码出现的这种情况：

原代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人|是否结案|审判程序")      \'窗口中副本表的筛选树
trv.Nodes.Insert("显示所有行",0)

改动代码：

Dim Filter As String
Tables("流程管理_Table1").Filter = Filter
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人|是否结案|审判程序",Filter)      \'窗口中副本表的筛选树
trv.Nodes.Insert("显示所有行",0)

我考虑项目启动时有个加载代码，就又改回去了。虽然不报错了，但是不知道怎么造成的，因为这个窗口不在主窗口打开时，也都正常。

 如果报错，那就加上msgbox定位出错位置。凭你所说，无法确定你哪里出问题。

窗口的afterload没有错，但运行了一遍代码没有能够打开窗口，也没有在期间报错。造成此情况的代码就是上上一层楼加黑的代码。

报错是在点击返回按钮时，报的错。

返回主窗口代码：

For Each frm As WinForm.Form In Forms
        If frm.Name <> "导航窗口" Then
        frm.Close
    End If
Next
Forms("导航窗口").show()
e.Form.Controls("Panel5").basecontrol.visible = True
e.Form.Controls("Panel5").basecontrol.BringToFront \'置前
\'e.Form.Controls("Panel5").basecontrol.SendToBack  \'置后

Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = False

Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick()   \'保存项目

窗口的afterload代码，没有加黑处的代码时，可以打开；反之，运行虽然不报错，但在主窗口内打不开窗口。单独打开此窗口可以。：

AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown   \'无边框移动
e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

e.Form.BaseForm.ShowInTaskbar = True

e.form.Controls("TextBox2").basecontrol.SendToBack  \'置后

e.Form.BaseForm.height = 580  \'独立窗口用此
e.Form.Controls("SplitContainer1").Panel2.Collapsed = True

Tables("流程管理_Table1").grid.styles.Normal.Border.Color = Color.Red   \'窗口表样式
Tables("流程管理_Table1").grid.styles.Normal.Border.Style = 1
Tables("流程管理_Table1").grid.styles.Normal.Border.width = 1
Tables("流程管理_Table1").grid.styles.Normal.Border.Direction = 0 \'0-2
Tables("流程管理_Table1").DefaultRowHeight = 30
Tables("流程管理_Table1").AutoSizeRows
Tables("流程管理_Table1").AutoSizeHeaderRow

Tables("流程管理_Table2").grid.styles.Normal.Border.Color = Color.Red   \'窗口表样式
Tables("流程管理_Table2").grid.styles.Normal.Border.Style = 1
Tables("流程管理_Table2").grid.styles.Normal.Border.width = 1
Tables("流程管理_Table2").grid.styles.Normal.Border.Direction = 0 \'0-2
Tables("流程管理_Table2").DefaultRowHeight = 30
Tables("流程管理_Table2").AutoSizeRows
Tables("流程管理_Table2").AutoSizeHeaderRow  \'自动列表题

With Tables("流程管理_Table2")      \'合并单元格
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("案号")
    .MergeCols.Add("原告")
    .MergeCols.Add("第三人")
    .MergeSort = "案号"
    .MergeSort = "原告"
    .MergeSort = "第三人"
    .AllowMerge = True
End With

msgbox(1)

e.Form.Controls("Table1").Table.Grid.AllowFiltering = True    \'表头筛选
e.Form.Controls("TextBox1").Text = "请输入案号数字"   \'文本框提示
msgbox(2)

Dim Filter As String
Tables("流程管理_Table1").Filter = Filter
msgbox(3)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人|是否结案|审判程序",Filter)      \'窗口中副本表的筛选树
trv.Nodes.Insert("显示所有行",0)
msgbox(4)

msgbox(12)
Dim g5 = e.Form.Controls("RecordGrid5").BaseControl
g5.Styles.normal.Border.Style = 1
g5.styles.Normal.Border.Color = Color.red
g5.styles.Normal.Border.width = 1
\'g5.AutoSizeRows
For Each r As object In g5.Rows
    r.Height = 52
Next

开发版例子是外部数据，用AAA用户名登录，密码888

进入项目后，点击导航左侧按钮“流程管理”，但打不开；点击返回主页，弹出出错。

但是在窗口管理可以打开这个窗口。

如果进入窗口管理，将窗口的TimerTick一句代码注释掉，重进项目，就行了。

代码是：Tables("流程管理_Table1").AutoSizeRows

不知道为什么？另外会不会是数据表的问题，我删除大部分数据记录后，也可能正常，现在也不知道怎么回事了。

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.rar