如何转换成for ..next i这样的形式(问题已经解决)

su_xx

原程序如下:

Private Sub Form_Load()
Dim i As Integer

  If (Me.Ctl1月.C) Then
     Me.Ctl1月合计.C
  Else
     Me.Ctl1月合计.C
  End If

If (Me.Ctl2月.C) Then
     Me.Ctl2月合计.C
  Else
     Me.Ctl2月合计.C
  End If
  
   If (Me.Ctl3月.C) Then
     Me.Ctl3月合计.C
  Else
     Me.Ctl3月合计.C
  End If
  
   If (Me.Ctl4月.C) Then
     Me.Ctl4月合计.C
  Else
     Me.Ctl4月合计.C
  End If
  
   If (Me.Ctl5月.C) Then
     Me.Ctl5月合计.C
  Else
     Me.Ctl5月合计.C
  End If


End Sub想要改变成:所有的数据换成I,本人试了好几种都说程序错误

Private Sub Form_Load()
Dim i As Integer
for i=1 to 5

'所有的数据换成变量i,本人试了好几种都说程序错误,我知道现成这种加"i"肯定是错误,就是想把上面N个if语句改成for ..next i这样,请高手帮忙改一下,谢谢了

     If (Me.Ctl"i"月.C) Then
     Me.Ctl"i"月合计.C
  Else
     Me.Ctl"i"月合计.Ci"月])"
  End If
next i
End Sub

[ 本帖最后由 su_xx 于 2008-1-22 15:34 编辑 ]

su_xx

谢谢rjacky版主,问题已经解决

rjacky

你的控件名称和你写的不一样

1. Dim I As Byte
   
2. For I = 1 To 5
   
3. If Me.Controls(I & "月").ControlSource = "" Then
   
4. Me.Controls(I & "月合计").ControlSource = "=0"
   
5. Else
   
6. Me.Controls(I & "月合计").ControlSource = "=sum([" & I & "月])"
   
7. End If
   
8. Next I

复制代码

su_xx

昨天下班,不能上传,根据版主的例子,还是一样有问题,和我原先出的问题一样,我把mdb上传,请版主查看一下,问题出在哪?

rjacky

是啊，遇上复杂的问题，最好还是上传MDB文件，这样方便测试答案是否有效，不需完整或真正的，简化一下即可

su_xx

谢谢楼上的2位版主，哪个发贴代码不知道为什么会变，我第一楼改了8次，在Discuz!代码模式里不会变，在所见既所午模式里发表就会变，不知道什么原因

版主你所说的例子是不是包括窗体，数据源都要的mdb文件？？我还以为是程序例子。

[ 本帖最后由 su_xx 于 2008-1-21 18:47 编辑 ]

rjacky

咱家是猫

原来没看清楼主的代码,现做以修正
Private Sub Form_Load()

    Dim I As Byte
    For I = 1 To 5
        If Me.Controls("Ctl" & I & "月").ControlSource = "" Then
            Me.Controls("Ctl" & I & "月合计").ControlSource = "=0"
        Else
            Me.Controls("Ctl" & I & "月合计").ControlSource = "=sum([" & I & "月])"
        End If
    Next I
      
End Sub

rjacky

你看我，用图片多好

一来不会改变格式，二来让楼主又能手工敲一遍加强印象和记忆

咱家是猫

R兄的收费估计又要泡汤了.

rjacky

晕，转眼间前面又多出只猫咪