首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 在查询中实现分组打印问题！
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-08-08 18:06:01 楼主
    Private Sub Cmdprint_Click()
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=入库管理.mdb;Persist Security Info=False"
    cnn.Open
    If Check1.Value = 0 And Check2.Value = 0 Then
    DR1.Show
    End If
    If Check1.Value = 0 And Check2.Value = 1 Then
    DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' ", cnn, adOpenKeyset, adLockOptimistic
    DR2.Show
    End If
    If Check1.Value = 1 And Check2.Value = 1 Then
    DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' And 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码"
    DR2.Show
    End If
    If Check1.Value = 1 And Check2.Value = 0 Then
    DataEnvironment1.rsCommand1_分组.Open "select  供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质  from 入库单 where 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码", cnn, adOpenKeyset, adLockOptimistic
    DR2.Show

    End If

    End Sub



    选择复选框后查询并打印，报表无法实现按供应商名称分组打印。如何解决？
    50  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-08 18:15:131楼 得分:0
    帮帮忙！实在是实现不了！谢谢！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 16:32:042楼 得分:0
    有没有人知道
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 16:53:193楼 得分:0
    图看不到，意思不明白
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:04:014楼 得分:0
    Private Sub Cmdprint_Click()
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=入库管理.mdbersist Security Info=False"
    cnn.Open
    If Check1.Value = 0 And Check2.Value = 0 Then
    DR1.Show
    End If
    If Check1.Value = 0 And Check2.Value = 1 Then
    DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' ", cnn, adOpenKeyset, adLockOptimistic
    DR2.Show
    End If
    If Check1.Value = 1 And Check2.Value = 1 Then
    DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' And 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码"
    DR2.Show
    End If
    If Check1.Value = 1 And Check2.Value = 0 Then
    DataEnvironment1.rsCommand1_分组.Open "select  供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质  from 入库单 where 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码", cnn, adOpenKeyset, adLockOptimistic
    DR2.Show

    End If

    End Sub



    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:05:225楼 得分:0
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:05:576楼 得分:0
    图片如上  帮帮忙！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:08:287楼 得分:0
    注意缩进，程序读起来方便

    Private Sub Cmdprint_Click()
        Set cnn = New ADODB.Connection
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=入库管理.mdb;Persist Security Info=False"
        cnn.Open
       
        If Check1.Value = 0 And Check2.Value = 0 Then
            DR1.Show
        End If
       
        If Check1.Value = 0 And Check2.Value = 1 Then
            DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' ", cnn, adOpenKeyset, adLockOptimistic
            DR2.Show
        End If
       
        If Check1.Value = 1 And Check2.Value = 1 Then
            DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' And 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码"
            DR2.Show
        End If
       
        If Check1.Value = 1 And Check2.Value = 0 Then
            DataEnvironment1.rsCommand1_分组.Open "select  供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质  from 入库单 where 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码", cnn, adOpenKeyset, adLockOptimistic
            DR2.Show
        End If

    End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:24:198楼 得分:0
    查询已经可以，只是打印有问题吗？
    三个查询那一个需要按供应商名称分组
    打印用什么方式实现，打印程序在哪？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:31:549楼 得分:0
    上面是打印按钮的代码 
    If Check1.Value = 0 And Check2.Value = 1 Then
            DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' ", cnn, adOpenKeyset, adLockOptimistic
            DR2.Show
        End If
       
        If Check1.Value = 1 And Check2.Value = 1 Then
            DataEnvironment1.rsCommand1_分组.Open "select 供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质 from 入库单 where 入库单编码 >= '" & Trim(Combo1.Text) & " 'and 入库单编码 <='" & Trim(Combo2.Text) & "' And 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码"
            DR2.Show
        End If
       
        If Check1.Value = 1 And Check2.Value = 0 Then
            DataEnvironment1.rsCommand1_分组.Open "select  供应商名称,入库单编码,入库时间,入库类别,进价,实付价格,折扣,入库性质  from 入库单 where 入库时间 >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & " #and 入库时间 <=# " & Format(DTPicker2.Value, "yyyy-mm-dd") & "# order by 入库单编码", cnn, adOpenKeyset, adLockOptimistic
            DR2.Show
        End If
    这几个是需要按供应商名称打印    但目前实现不了
    因为用的是data report所以按此打印按钮是一个打印预览 在预览页面有打印按钮 那个是自动就可以打印
    现在就是分组不行
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:33:2510楼 得分:0
    加上
    order by 供应商名称
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 18:20:3011楼 得分:0
    我试了 没用
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 08:19:4112楼 得分:0
    看看这个
    http://wf66.com/page/20069/1972570346.htm
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 16:31:2613楼 得分:0
    我试了 还是没用  分组和查询如何能一起实现？这两个一起弄老出问题
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved