Private Sub Form_Load()
Dim guaiid As Long
guaiid = 8
End Sub
---------------------------------------------
Private Sub Command1_Click()
If guaiid <> "0" Then
lastid = guaiid
Label1.Caption = guaiid
Else
For i = 1 To 10 Step 1
guaiid = lastid + i
If guaiid <> "0" Then
End If
Exit For
Next
End If
End Sub
-------------------------------------------------
结果单击之后label1里面的内容是空的?
vb里没有break,也不知道我写的那个Exit For对不对
Dim guaiid As Long
guaiid = 8
End Sub
---------------------------------------------
Private Sub Command1_Click()
If guaiid <> "0" Then
lastid = guaiid
Label1.Caption = guaiid
Else
For i = 1 To 10 Step 1
guaiid = lastid + i
If guaiid <> "0" Then
End If
Exit For
Next
End If
End Sub
-------------------------------------------------
结果单击之后label1里面的内容是空的?
vb里没有break,也不知道我写的那个Exit For对不对
看你这两个过程,你最好将guaiid定义为窗体级变量。