如何转换成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 编辑 ]

咱家是猫

Private Sub Form_Load()
    Dim I As Byte
    For I = 1 To 5
        If Me.Controls("Ctl" & I & "月").C Then
            Me.Controls("Ctl" & I & "月").C
        Else
            Me.Controls("Ctl" & I & "月").C & I & "月])"
        End If
    Next I
      
End Sub

[ 本帖最后由 咱家是猫 于 2008-1-21 17:40 编辑 ]

咱家是猫

奇怪了,每次发出来代码都变呢?

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

你看我，用图片多好

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

咱家是猫

原来没看清楼主的代码,现做以修正
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