做了一个主窗口，主窗口里用分区面板。 左边用导航栏。 右边留出空白用来加载窗口。
右边的窗口是独立窗口。
通过点击左边导航栏里的按钮，可以实现把独立窗口加载入右边的空白区域。
但是应该是右边的窗口加载后，无法获取焦点，导致的原来的一些筛选功能没有用。看图片显示。 刚开始时我输入文字后按回车键， 没有筛选。
当我再次点击一下左边和导航栏切换一下后， 再回到筛选，就可以用了。
加载窗口代码：
Dim PB As Object = e.Form.Controls("SplitContainer1").Panel2
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.add(Forms(Name).BaseForm)
MainTable = Tables("项目总表")
Tables("项目总表").OpenView("项目总表") '打开项目总表的视图
Forms("信息总表").Select
此主题相关图片如下：4.gif
加好友 
发短信
Post By：2023/11/5 10:57:00 [只看该作者]
