专家坐堂-找不到控件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  找不到控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24606)

--  作者：johnbu
--  发布时间：2012/10/18 10:23:00
--  找不到控件
现遇到一个问题，我有一个窗口用的是
Case "ERP界面button4"
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

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

--  作者：johnbu
--  发布时间：2012/10/18 10:24:00
--

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 事件。

--  作者：狐狸爸爸
--  发布时间：2012/10/18 10:40:00
--

你的控件名称，肯定不是：采购订单ComboBox1

也许是： ComboBox1

打开窗口设计器，看看名称到底是社么吧

--  作者：johnbu
--  发布时间：2012/10/18 10:46:00
--
控件名是这个……
此主题相关图片如下：控件属性.jpg

--  作者：johnbu
--  发布时间：2012/10/18 10:48:00
--

此主题相关图片如下：窗口.jpg

可以看一下这个

--  作者：狐狸爸爸
--  发布时间：2012/10/18 10:48:00
--

做个例子发上来，我帮你看看。

--  作者：johnbu
--  发布时间：2012/10/18 10:58:00
--
这是我的项目
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:兴隆erp_v1.0.rar
高勇 159

--  作者：johnbu
--  发布时间：2012/10/18 11:00:00
--
ERP界面————————》库存管理——————————》采购入库————————》填上内容后点增加行————————》报错。

--  作者：狐狸爸爸
--  发布时间：2012/10/18 11:23:00
--

将采购订单这个窗口的窗口类型改为模式窗口。

你看看你自己打开这个窗口的代码：

        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编辑过]

--  作者：lin_hailun
--  发布时间：2012/10/18 11:24:00
--
楼主，是这句代码

Dim ymy As WinForm.Panel = Forms("采购订单").Controls("采购订单Panel1")

你把窗口的控件剪切到了另一个窗口，那么窗口自然不存在这个控件。

那么你增加按钮的代码应该写

Forms("ERP界面").Controls("......")