如题。具体见附件。

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

点击浏览该文件:管理项目3.table

一、说明：用以下代码可以生成一个窗口、工具栏和表

\'\'\'
Forms("窗口1").Close
Forms("窗口1").Open(-1000,-1000)

Dim 窗口 As New system.Windows.Forms.Form  \'声明动态窗口
窗口.Text = "恢复删除记录"
窗口.Width = 500   \'宽度
窗口.Height = 400   \'高度
Dim 工具栏 As WinForm.Strip = Forms("窗口1").Strips.Add("工具栏_表A", 1)
窗口.controls.add(工具栏.basecontrol)
\'窗口.parent.controls.add(工具栏.basecontrol)  \'原来这个用法是可以的，这里

If DataTables.Contains("窗口1_表A") Then DataTables.Unload("窗口1_表A")
Dim 窗口表 As WinForm.Table = Forms("窗口1").CreateSQLQuery("表A", "S elect * From {表A}", "")  \'生成[已删除]且为[今天]记录的表
窗口表.Dock = 5  \'充满
Forms("窗口1").AddControl(窗口表)
窗口.Controls.Add(窗口表.BaseControl)

窗口.Show

二、问题：窗口工具栏遮住了窗口表的表头。

1、在窗口表Dock设置为充满时，如何避免工具栏遮住了表头？

2、原来这个用法是可以的：窗口.parent.controls.add(工具栏.basecontrol)，但在这里却出现以下提示。

---------------------------
版本:2020.1.19.19
---------------------------
代码执行出错，错误信息：  System.NullReferenceException: Object reference not set To an instance of an object.    at UserCode.Test()
---------------------------
确定  
---------------------------

如何解决？谢谢