请高手帮忙看看程序有啥错误

myreebok

这个是在其他控件里面的。。。不是在面板上选择的

myreebok

原帖由 hupanshan 于 2009-10-27 13:45 发表

试了一下是正确的，不过有个小笔误OLEObjects("CheckBox" & i).Object.Value

还是没搞明白啊。。。

hupanshan

原帖由 myreebok 于 2009-10-29 10:18 发表




还是没搞明白啊。。。

For i = 1 To 50
        If me.controls("CheckBox" & i).Value = True Then
     me.controls(" DTPicker" &i).Enabled = True
   Else
      me.controls(" DTPicker" &i).Enabled = False
   End If
    Next
这是2楼提供的
把其中的判断语句用8楼的替换一下：
For i = 1 To 50
        If oleobjects("CheckBox" & i).object.Value = True Then
     me.controls(" DTPicker" &i).Enabled = True
   Else
      me.controls(" DTPicker" &i).Enabled = False
   End If
    Next
至于DTPickeri是什么东西，我也不清楚

[ 本帖最后由 hupanshan 于 2009-10-29 10:32 编辑 ]

myreebok

原帖由 hupanshan 于 2009-10-29 10:30 发表

For i = 1 To 50
        If me.controls("CheckBox" & i).Value = True Then
     me.controls(" DTPicker" &i).Enabled = True
   Else
      me.controls(" DTPicker" &i).Enabled = False
   End If
    ...

问题在于，我也是按这个改的，但是到了我首页上传的excel表格里面，就不好用啊。。。DTPicker是日期时间选择控件

hupanshan

原帖由 myreebok 于 2009-10-29 10:57 发表

问题在于，我也是按这个改的，但是到了我首页上传的excel表格里面，就不好用啊。。。DTPicker是日期时间选择控件

那么为什么你在上传的文件中不让人看到呢？

myreebok

原帖由 hupanshan 于 2009-10-29 11:25 发表

那么为什么你在上传的文件中不让人看到呢？

俺再传一次。。。。 Book1.rar (13.99 KB, 下载次数: 11)

2009-10-29 11:36 上传

点击文件名下载附件

这个是修改好，但是仍然无法执行的

hupanshan

原帖由 myreebok 于 2009-10-29 11:36 发表



俺再传一次。。。。605136这个是修改好，但是仍然无法执行的

除了三个打了红叉的矩形，什么也没有

来生缘

原帖由 hupanshan 于 2009-10-29 16:12 发表

除了三个打了红叉的矩形，什么也没有

呵呵，应该是DTPicker的控件的问题，我的电脑里也没有这个控件

myreebok

启用宏就好了。。。不然就叉叉。。。

hupanshan

在网上查了一下，需要Microsoft date and time picker contorl 6.0控件，本人机器里没有，不知如何解决。