程序：Dim i As Integer
Private Sub Command1_Click()
For i = 1 To i = 3
If Checki.Value Then
Form2.Show
Label7.Caption = ""
Else
Label7.Caption = "您没有选择要入库的商品！"
End If
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To i = 3
If Checki.Value Then
Form3.Show
Label7.Caption = ""
Else
Label7.Caption = "您没有选择要退货的商品！"
End If
Next i
End Sub
1 For i = 1 To i = 3
应该为 For i = 1 To 3
2 if Checki.Value Then
应该为 if Check(i).Value Then
改完后还是不能运行 提示子程序或函数未定义
