首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 在查询中实现分组打印问题！急！！！
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 结帖率：
    发表于：2008-08-08 17:09:40 楼主
    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



    选择复选框后查询并打印，报表无法实现按供应商名称分组打印。如何解决？
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-08 18:14:201楼 得分:0
    帮帮忙！实在是实现不了！谢谢！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 16:32:262楼 得分:0
    如何解决？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-20 16:54:183楼 得分:0
    连发两贴，看来真的很急
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzzvb
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 17:07:334楼 得分: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
    界面图如下：
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved