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

myreebok

最后一段checkbox 的sub 是想实现checkbox i对应的 DTP i 能实现选中复选框，DTP 才激活

Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub


Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub


Sub CheckBox()
    For i = 1 To 50
        If CheckBoxi.Value = True Then
      DTPickeri.Enabled = True
   Else
      DTPickeri.Enabled = False
   End If
    Next
End Sub

Book1.rar (13.79 KB, 下载次数: 15)

2009-10-27 10:24 上传

点击文件名下载附件

[ 本帖最后由 myreebok 于 2009-10-27 10:24 编辑 ]

来生缘

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
如果是在窗体上，可能应该用上面的代码，最好有附件

hupanshan

一个办法是为每一个CheckBox设一个Click事件的程序，每个CheckBox分别控制一个DTP。只是50个事件多了点。

myreebok

3楼的方法不可行啊。。。这个如果我每次更新表格，新增20个，我不得忙死啊。。。

来生缘

我的电脑里好像没有这个控件

myreebok

DTP咋能灭有捏。。。date and time picker

来生缘

原帖由 myreebok 于 2009-10-27 11:43 发表
DTP咋能灭有捏。。。date and time picker

这个。。。。真的没有。。。。

来生缘

我的意见是用另外一个按钮来循环判断，如果某个复选框值为TRUE，则对应的DTPicker实现Enabled
如果不在窗体里，好像是这么判断，Me.OLEObjects("checkbok" & i).Object.Value

hupanshan

原帖由 myreebok 于 2009-10-27 10:30 发表
3楼的方法不可行啊。。。这个如果我每次更新表格，新增20个，我不得忙死啊。。。

你没有把整个问题讲清楚，所以很难说怎么解决。新增20个表格也没什么了不起，无非是做个拷贝程序循环20次而已。

hupanshan

原帖由 来生缘 于 2009-10-27 11:55 发表
我的意见是用另外一个按钮来循环判断，如果某个复选框值为TRUE，则对应的DTPicker实现Enabled
如果不在窗体里，好像是这么判断，Me.OLEObjects("checkbok" & i).Object.Value

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

[ 本帖最后由 hupanshan 于 2009-10-27 13:46 编辑 ]