程序要怎样控制99行循环 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 程序要怎样控制99行循环

共有4389人关注过本帖树形打印复制链接主题：程序要怎样控制99行循环

venking999

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：154 积分：1397 威望：0 精华：0 注册：2019/1/5 16:07:00

程序要怎样控制99行循环 发帖心情

Post By：2021/8/13 9:11:00 [只看该作者]

蓝老师:咨询2个问题,

第一：就是我的USERS表中有300多行数据,但我每次只想取99条到ja2数据中,要怎样加控制条件呢?以下代码是把300多行数据都到ja2数组中

Dim ja2 As New Jarray '定义数组

For Each dr As DataRow In DataTables("Users").DataRows

ja2.Add(dr("userid"))

第二：我的程序我想设置每天上午8：30，下午9：00自动运行上面这段代码，是放在FORM的timertick事件中吗？我看了帮助，但还是不太明白怎样控制每天上午和下午固定时间运行

[此贴子已经被作者于2021/8/13 9:10:52编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：113849 积分：579836 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/13 9:26:00 [只看该作者]

1、

for i as integer = 0 to DataTables("Users").DataRows.count - 1 step 99

output.show("分组")

for j as integer = i to math.min(i+98,DataTables("Users").DataRows.count - 1)

output.show(j)

2、把间隔设置为30分钟

if date.today.hour = 8 andalso date.today.Minute >= 30 then

end if

主题：程序要怎样控制99行循环