Select Case e.sender.name
Case "ERP界面button1","ERP界面label4"
For ib As Integer = 0 To e.form.Controls("ERP界面TabControl2").TabPages.Count -1
If e.form.Controls("ERP界面TabControl2").TabPages(ib).text = "销售订单" Then
e.Form.Controls("ERP界面TabControl2").SelectedIndex = ib
Return
End If
Next
Dim tbl2 As WinForm.TabControl
tbl2 = e.Form.Controls("ERP界面TabControl2")
tbl2.TabPages.Add("销售订单","销售订单")
forms("销售订单").open
forms("销售订单").Visible = False
If forms("销售订单").opened Then
Dim ymy As WinForm.Panel = Forms("销售订单").Controls(
"销售订单Panel3" )
tbl2.TabPages("销售订单").AddControl(ymy)
ymy.Dock = Windows.Forms.DockStyle.fill
tbl2.SelectedIndex = tbl2.TabPages.Count-1
End If
Case "ERP界面button2","ERP界面label5"
For ic As Integer = 0 To e.form.Controls("ERP界面TabControl2").TabPages.Count -1
If e.form.Controls("ERP界面TabControl2").TabPages(ic).text = "销售查询" Then
e.Form.Controls("ERP界面TabControl2").SelectedIndex = ic
Return
End If
Next
Dim tbl2 As WinForm.TabControl
tbl2 = e.Form.Controls("ERP界面TabControl2")
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
End Select
当我点"ERP界面button1" 可以正常显示，但点"ERP界面button2“时就报错，说找不到 ”销售查询Panel1“ 如果反过来点，就是找不到"销售订单Panel3" 哪位知道是怎么回事呀、
加好友 
发短信
Post By：2012/10/12 16:57:00 [显示全部帖子]
