opt_frm 下代码(r/w已赋值)
Private Sub optadd_Click(Index As Integer)
ReDim opt_all(w)
If optadd(Index).Value = True Then
For j = 1 To r'这个循环里,有个变量i,它的值貌似一直没有变化
opt_temp = xlSheet.Cells(i, 1)'楼主,你这个过程里的变量i是怎么使用的?窗体变量还是全局变量还是未赋值的??
If opt_temp = find1(Index) Then
For k = 1 To w
opt_all(k) = opt_all(k) + xlSheet.Cells(1, k) & ":" & xlSheet.Cells(j, k) & Chr(13) & Chr(13)
Next k
End If
Next j
End If
print_Frm.Show
print_Frm.Print opt_all(k)
End Sub
我当前没有VB6环境,不好测试你的工程。请注意上述代码中的注释部分
Private Sub optadd_Click(Index As Integer)
ReDim opt_all(w)
If optadd(Index).Value = True Then
For j = 1 To r'这个循环里,有个变量i,它的值貌似一直没有变化
opt_temp = xlSheet.Cells(i, 1)'楼主,你这个过程里的变量i是怎么使用的?窗体变量还是全局变量还是未赋值的??
If opt_temp = find1(Index) Then
For k = 1 To w
opt_all(k) = opt_all(k) + xlSheet.Cells(1, k) & ":" & xlSheet.Cells(j, k) & Chr(13) & Chr(13)
Next k
End If
Next j
End If
print_Frm.Show
print_Frm.Print opt_all(k)
End Sub
我当前没有VB6环境,不好测试你的工程。请注意上述代码中的注释部分
===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================