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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 找不到控件

共有11317人关注过本帖树形打印复制链接主题：找不到控件

johnbu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

找不到控件

Post By：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

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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

Post By：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 事件。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/18 10:40:00 [只看该作者]

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

也许是： ComboBox1

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

johnbu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

Post By：2012/10/18 10:46:00 [只看该作者]

控件名是这个……

此主题相关图片如下：控件属性.jpg

johnbu

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

Post By：2012/10/18 10:48:00 [只看该作者]

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

可以看一下这个

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/10/18 10:48:00 [只看该作者]

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

johnbu

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

Post By：2012/10/18 10:58:00 [只看该作者]

这是我的项目

下载信息 [文件大小：下载次数： ]
点击浏览该文件:兴隆erp_v1.0.rar

高勇 159

johnbu

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：435 威望：0 精华：0 注册：2012/2/1 14:05:00

Post By：2012/10/18 11:00:00 [只看该作者]

ERP界面————————》库存管理——————————》采购入库————————》填上内容后点增加行————————》报错。

狐狸爸爸

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/10/18 11:24:00 [只看该作者]

楼主，是这句代码

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

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

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

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

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：找不到控件