条件统计符合条件的内容，汇总到指定地方

xyh2732

请问如何可以根据下面子窗体的查询结果统计出“部门”为作废的发票号，如果有多个号码用“/”区分。比如发票号查询00000001至00000020.在作废发票号码填入00000013/000000018

yanghua1900363

你是不是想实现“统计出以部门为单位的作废发票号码”？

xyh2732

回复 yanghua1900363 的帖子

我想统计出部门包含“作废”的发票号汇总，有多个的就用“/”区分

roych

又是你啊？上次好像提示过，查询部分参考刘小军常用窗体查询实例，统计部分参考TodayNew的来回折腾……嗯，看来统计部分还不会。把以下这段代码贴到你的按钮里（网速不好，所以不上传附件了）：

1. 
   
2.      Dim NumIvc As String'定义发票号码
   
3.     On Error Resume Next '错误处理。
   
4.     db.QueryDefs.Delete "test" '删除旧查询，并创建新查询。
   
5.     Set qdf = db.CreateQueryDef("test", "select * from 发票封面查询 where " & StrWhere)
   
6.     Set rs = db.OpenRecordset("select 发票号码 from test where 作废=true")'打开记录集
   
7.         Do Until rs.EOF
   
8.         NumIvc = NumIvc & rs(0) & "/"  '循环写入NumIvc，获取发票号码
   
9.         rs.MoveNext
   
10.         Loop
    
11.     NumIvc = Left(NumIvc, Len(NumIvc) - 1)  '去掉最后一个斜杠，写入控件，并关闭记录集。
    
12.     Me.Text125.Value = NumIvc
    
13.     rs.Close

复制代码

此外，一、请把里面的作废的“文本”字段类型改为“是否”。——这是昨晚忘了说的事情。二、建议不要这样定义： dim rs As RecordSet，因为同时引用ADO和DAO时很容易出现冲突（这次没有问题是因为优先级是DAO）。

今天网速稍稍好些，总算可以上传了：

xyh2732

回复 roych 的帖子

感谢你的帮忙，但是我把旧的查询删除贴上你的代码，不知道为什么就死机不动了。可否传个附件看看，谢谢！

roych

我不知道你删除哪个旧查询（该不会是你子窗体的数据源吧？）。如果不想创建查询就这样改下：

1. '打开记录集
   
2.     If StrWhere = "" Then
   
3.     strSQL = "select 发票号码 from 汇总资料 where 作废=true"
   
4.     Else
   
5.     strSQL = "select 发票号码 from 汇总资料 where  作废=true and " & StrWhere
   
6.     End If
   
7.     Set rs = db.OpenRecordset(strSQL)
   
8.     '循环写入NumIvc，获取发票号码
   
9.         Do Until rs.EOF
   
10.         NumIvc = NumIvc & rs(0) & "/"
    
11.         rs.MoveNext
    
12.         Loop
    
13.     '去掉最后一个斜杠
    
14.     NumIvc = Left(NumIvc, Len(NumIvc) - 1)
    
15.     Me.Text125.Value = NumIvc
    
16.     rs.Close

复制代码

xyh2732

回复 roych 的帖子

感谢ROYCH老师的帮忙，还有点问题不明白。为什么我不填入发票号运行查找系统就会死机？有办法解决吗？

roych

我测试了没有问题啊。也许是你的电脑问题吧，不过还是稍稍改了下代码，你测试下更新后的附件，看看还有没有问题。

yanghua1900363

尽管暂时用不到，还是要先谢谢ROYCH老师了！