设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1769|回复: 4
打印 上一主题 下一主题

[查询] 关于通过一个表生成另一个表中的查询

[复制链接]
跳转到指定楼层
1#
发表于 2009-1-13 21:07:08 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
2008-3-25¥10,000.00
2008-4-9¥5,000.00
2008-4-12¥3,000.00
2008-4-17¥3,000.00
2008-4-30¥15,000.00

以上为原表
以下为新表
日期金额
2008-3-25¥10,000.00
2008-3-26¥10,000.00
2008-3-27¥10,000.00
2008-3-28¥10,000.00
2008-3-29¥10,000.00
2008-3-30¥10,000.00
2008-3-31¥10,000.00
2008-4-1¥10,000.00
2008-4-2¥10,000.00
2008-4-3¥10,000.00
2008-4-4¥10,000.00
2008-4-5¥10,000.00
2008-4-6¥10,000.00
2008-4-7¥10,000.00
2008-4-8¥10,000.00
2008-4-9¥5,000.00
2008-4-10¥5,000.00
2008-4-11¥5,000.00
2008-4-12¥3,000.00
2008-4-13¥3,000.00
2008-4-14¥3,000.00
2008-4-15¥3,000.00
2008-4-16¥3,000.00
2008-4-17¥3,000.00
2008-4-18¥3,000.00
2008-4-19¥3,000.00
2008-4-20¥3,000.00
2008-4-21¥3,000.00
2008-4-22¥3,000.00
2008-4-23¥3,000.00
2008-4-24¥3,000.00
2008-4-25¥3,000.00
2008-4-26¥3,000.00
2008-4-27¥3,000.00
2008-4-28¥3,000.00
2008-4-29¥3,000.00
2008-4-30¥15,000.00


有没有办法可以将第一个表变成第二个表,谢谢各位高手
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
5#
 楼主| 发表于 2009-1-13 23:18:30 | 只看该作者
再次感谢高手,解决了我的大问题
4#
 楼主| 发表于 2009-1-13 23:13:02 | 只看该作者
谢谢,高手,我试一下
3#
发表于 2009-1-13 22:01:42 | 只看该作者
假设你的原表为a,新表为b
Dim rs As New ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim Sdate As Date
    Dim Edate As Date
    Dim interval As Integer
    Dim i As Long, j As Integer
    With rs
        .Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        rst.Open "B", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Do Until j = .RecordCount - 1
            Sdate = .Fields(0)
            .MoveNext
            Edate = .Fields(0)
            .MovePrevious
            interval = DateDiff("d", Sdate, Edate) - 1
            For i = 0 To interval
                rst.AddNew
                rst.Fields(0) = .Fields(0) + i
                rst.Fields(1) = .Fields(1)
            Next
            rst.Update
            j = j + 1
            .MoveNext
        Loop
        .MoveLast
        rst.AddNew
        rst.Fields(0) = .Fields(0)
        rst.Fields(1) = .Fields(1)
        rst.Update
        .Close
        rst.Close
    End With
    Set rs = Nothing
    Set rst = Nothing
2#
发表于 2009-1-13 21:13:24 | 只看该作者
用记录集应该可以,
请把例子传上来
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 02:43 , Processed in 0.088142 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表