将采购订单这个窗口的窗口类型改为模式窗口。
你看看你自己打开这个窗口的代码:
For id As Integer = 0 To e.form.Controls("ERP界面TabControl3").TabPages.Count -1
If e.form.Controls("ERP界面TabControl3").TabPages(id).text = "采购订单" Then
e.Form.Controls("ERP界面TabControl3").SelectedIndex = id
Return
End If
Next
Dim tbl2 As WinForm.TabControl
tbl2 = e.Form.Controls("ERP界面TabControl3")
tbl2.TabPages.Add("采购订单","采购订单")
forms("采购订单").open
forms("采购订单").Visible = False
If forms("采购订单").opened Then
Dim ymy As WinForm.Panel = Forms("采购订单").Controls("采购订单Panel1")
tbl2.TabPages("采购订单").AddControl(ymy)
ymy.Dock = Windows.Forms.DockStyle.fill
tbl2.SelectedIndex = tbl2.TabPages.Count-1
End If
最好不要搞得太复杂,系统简单实用为主,走常规的路子,你会少很多麻烦。
[此贴子已经被作者于2012-10-18 11:25:02编辑过]