Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：测试
1楼
1234567 发表于：2023/12/7 10:35:00
有1万行数据，每For Each 100行数据就输入msgbox()，求代码。
2楼
有点蓝 发表于：2023/12/7 10:37:00
Dim Sum As Integer
Dim i As Integer
For i = 1 to 10000
if i mod 100 = 0 then
msgbox(i)
end if
    Sum = Sum + i
Next
Output.Show(Sum)
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.