主题：找不到控件

        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

把采购订单这个窗口 加载到主窗口

但现在我在采购订单这里点按钮，把报错，说找不到控件


此主题相关图片如下：找不到控件.jpg


但我单独打开这个 采购订单 的窗口，就没有问题，那位帮我看看问题在哪里呀。

messagebox.show("6")

Dim cbb1 As WinForm.ComboBox=  Forms("采购订单").Controls("采购订单ComboBox1")

Dim cbb2 As WinForm.ComboBox=  Forms("采购订单").Controls("采购订单ComboBox2")

Dim tb6 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox6")

Dim dtp As WinForm.DateTimePicker=  Forms("采购订单").Controls("采购订单DateTimePicker1")

messagebox.show("7")

'订单体

Dim lab13 As WinForm.Label = Forms("采购订单").Controls("采购订单Label13")

Dim lab11 As WinForm.Label = Forms("采购订单").Controls("采购订单Label11")

Dim drt As Row = Tables("采购订单").addnew()

Dim cbb3 As WinForm.ComboBox=  Forms("采购订单").Controls("采购订单ComboBox3")

Dim tb1 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox1")

Dim tb2 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox2")

Dim tb3 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox3")

Dim tb4 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox4")

Dim tb5 As WinForm.TextBox=  Forms("采购订单").Controls("采购订单TextBox5")

Dim Val As String 

Val = Rand.NextString(12) '生成长度为12的随机字符串

这是 采购订单 里出错按钮的 Check 事件。