Office中国论坛/Access中国论坛

标题: 【求助】删除窗体所有控件的代码。【已解决】 [打印本页]

作者: doney88 时间: 2016-7-19 21:55
标题: 【求助】删除窗体所有控件的代码。【已解决】
本帖最后由 doney88 于 2016-7-19 22:56 编辑

本人在尝试动态根据数据源添加文本框的代码。用于动态显示交叉查询的数据源的窗体（数据表视图）。
基本已经搞定如何插入控件。现在问题来了。

每次开始前无法删除窗体所有控件。尝试过 application.deltecontrols的功能似乎没用。代码如下。

      For Each ctl In mfrmPvt.Controls
         Application.DeleteControl 窗体名, ctl.Name
      Next

求大神帮助！

经过测试改成即可
      For i = 0 To mfrmPvt.Controls.Count - 1
         Application.DeleteControl mstrFormName, mfrmPvt.Controls(0).Name
      Next

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)