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

myreebok · 发表于 2009-10-27 10:00

最后一段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)

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

来生缘 · 发表于 2009-10-27 10:05

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 · 发表于 2009-10-27 10:07

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

myreebok · 发表于 2009-10-27 10:30

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

来生缘 · 发表于 2009-10-27 10:34

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

myreebok · 发表于 2009-10-27 11:43

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

来生缘 · 发表于 2009-10-27 11:46

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

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

来生缘 · 发表于 2009-10-27 11:55

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

hupanshan · 发表于 2009-10-27 13:39

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

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

hupanshan · 发表于 2009-10-27 13:45

原帖由 来生缘 于 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 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 请高手帮忙看看程序有啥错误