Office中国论坛/Access中国论坛

标题: 在线等答案:关于循环的? [打印本页]

作者: pyk 时间: 2003-4-27 03:34
标题: 在线等答案:关于循环的?
e = 1
zu = 1
zuo = 1
Do While zu <> 8
Me("list" & Trim(Str(e))).RowSourceType = "表/查询"
Me("list" & Trim(Str(e))).RowSource = "select 姓名 FROM  " & b & " where 编号= '" & zu & " 'And 册号= '" & zuo & " '"
zuo = zuo + 1
If zuo < 9 Then 回去再循环上面的语句
Else
zu = zu + 1
然后就是zu=2 , zuo=1……zuo=8循环上面的语句

      zu=3 , zuo=1……zuo=8循环上面的语句

      ……
      zu=8, zuo=…… zuo=8循环上面的语句
End循环


简单的说就是当变量Zu为1的时候, 变量Zuo要循环从1到8 (Zuo没有到8的时候,变量zu一直是等于1的)(zuo到8后,zu累加1,然后再继续)
               zu为2的时候, 变量zuo也是从1到到8

谢谢!

作者: Trynew 时间: 2003-4-27 04:12
用嵌套For循环：
For Zu=1 to 8
for Zuo=1 to 8
'程序语句
Next Zuo
Next Zu

作者: Roadbeg 时间: 2003-4-27 04:14
建议 pyk 先找本程序设计的基础书来看看.
嵌套循环
dim i as long,j as long
For I=1 to 8
For J=1 to 8
......
next J
next I

作者: pyk 时间: 2003-4-27 04:47
谢谢2位版主,真不好意思!

作者: pyk 时间: 2003-4-27 06:26

[此贴子已经被作者于2003-4-26 22:39:05编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)