1,451
社区成员
发帖
与我相关
我的任务
分享如何优化此代码？在线等等。
如何优化此代码，如果不优化的话可能要几个小时才能添加完。
Dim intI, intJ, intK, intL, intM, intN, intO As Integer
For intI = 0 To 9
For intJ = 0 To 9
For intK = 0 To 9
For intL = 0 To 9
For intM = 0 To 9
For intN = 0 To 9
For intO = 0 To 9
Adodc1.Recordset.AddNew
Adodc1.Recordset!code = intI & intJ & intK & intL & intM & intN & intO
Adodc1.Recordset.Update
ProgressBar1.Value = ProgressBar1.Value + 1
Next intO
Next intN
Next intM
Next intL
Next intK
Next intJ
Next intI
Dim intI, intJ, intK, intL, intM, intN, intO As Integer
For intI = 0 To 9
For intJ = 0 To 9
For intK = 0 To 9
For intL = 0 To 9
For intM = 0 To 9
For intN = 0 To 9
For intO = 0 To 9
Adodc1.Recordset.AddNew
Adodc1.Recordset!code = intI & intJ & intK & intL & intM & intN & intO
Adodc1.Recordset.Update
ProgressBar1.Value = ProgressBar1.Value + 1
Next intO
Next intN
Next intM
Next intL
Next intK
Next intJ
Next intI
...全文
请发表友善的回复…
发表回复
northwolves 2004-10-27
- 打赏
- 举报
应该Dim i As long
northwolves 2004-10-27
- 打赏
- 举报
狂晕：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9999999
Adodc1.Recordset.AddNew
Adodc1.Recordset!code = Right("0000000" & i, 7)
Adodc1.Recordset.Update
ProgressBar1.Value = i
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9999999
Adodc1.Recordset.AddNew
Adodc1.Recordset!code = Right("0000000" & i, 7)
Adodc1.Recordset.Update
ProgressBar1.Value = i
Next
End Sub
creazyfish 2004-10-27
- 打赏
- 举报
你加这么多循环,怎么优化啊?买台服务器去跑吧.呵呵
huazaigood 2004-10-27
- 打赏
- 举报
怎么没有人回答啊，高手们帮帮忙吧。
