循环语句在access里的应用-yihui
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


循环语句在access里的应用

发表时间:2018/3/3 9:57:36 评论(0) 浏览(1019)  评论 | 加入收藏 | 复制
   
摘 要:数组 及循环在access的效果实现
正 文:

刚有个网友咨询,对于下列这样的表格

大厦 层数 性质
远航 1-2 超市
远航 13-18 住宅
 如何快速生成下面的表格


大厦 当前层数 性质
远航 1 超市
远航 2 超市
远航 13 住宅
远航 14 住宅
远航 15 住宅
远航 16 住宅
远航 17 住宅
远航 18 住宅

这种,我平时最喜欢的方式是取数组后用循环,然后用记录集新增。具体代码如下:

Sub 生成()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim t, l1, l2, l
    t = DCount("*", "大楼登记表")
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("select * from 大楼登记表")
    arr = rs.GetRows(t)
    Set rs = db.OpenRecordset("登记表")
    
    For i = 0 To t - 1
        If InStr(arr(2, i), "-") > 0 Then
            l1 = Split(arr(2, i), "-")(0): l2 = Split(arr(2, i), "-")(1)
        Else
            l1 = arr(2, i): l2 = arr(2, i)
        End If
        For l = l1 To l2 Step 1
            rs.AddNew
            rs!大厦 = arr(1, i)
            rs!当前层数 = l
            rs!性质 = arr(3, i)
            rs.Update
        Next
    Next
    rs.Close
    Set db = Nothing
End Sub

Access 案例如下:

测试access


Access软件网交流QQ群(群号:198465573)
 
 相关文章
循环函数的应用  【在水一方  2013/4/13】
【Access示例】用代码修改表名称,用循环语句更改表名称,重命名...  【缪炜  2013/8/23】
【Access示例】列表框数据循环示例  【杨雪  2015/8/4】
进行判断循环--While…Wend 语句  【杨雪  2017/5/14】
Access用VBA循环获取表的所有字段名称  【宏鹏  2017/6/8】
批量循环更新  【凝听  2017/11/27】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

yihui

文章分类

文章存档

友情链接