SQL语句功能实现得问题？

Question

归类,本身"收发状态值"字段就能区分了.
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# order by 收发状态值" 汇总:
rsUser1.Open "SELECT count(ID) as 个数,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# group by 收发状态值" 

Answer 1

rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 (select count(a.name) from " &CStr(WorkDate)& "as a where a.收发状态值 ='A' and "&CStr(WorkDate)&" .收发状态值 ='B')
FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "#"  order by 收发状态值

Answer 2

Yang_(扬帆破浪) ~~~
引用：--->
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# order by 收发状态值" 
引用：---->
并且也希望能够各自在显示排列中，为A的归为一类、B的归为一类(可以达到)
引用：---->
汇总:
rsUser1.Open "SELECT count(ID) as 个数,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# group by 收发状态值
-------------->实现不了~~(分别统计出‘收发状态值’为A的记录是多少，‘收发状态值’是B的记录是多少。)
 liyunsong2000(我选择，我喜欢)
引用：------> 
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 (select count(a.name) from " &CStr(WorkDate)& "as a where a.收发状态值 ='A' and "&CStr(WorkDate)&" .收发状态值 ='B')
FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "#"  order by 收发状态值按照上面的，我写得代码：
rsUser.Open ("SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 " _
                & "(select count(a.收发状态值) as a from as a " & CStr(WorkDate) & " where a.收发状态值='A' and " & CStr(WorkDate) & " a.收发状态值='B') " _
                & "FROM [" & CStr(WorkDate) & "] WHERE 编报日期 BETWEEN # " & "99-6-1" & " # AND # " & "02-7-10" & " # ORDER BY 收发状态值")运行时系统提示错误：
在查询表达示"收发状态值 (select count(a.收发状态值) as a from as a " & CStr(WorkDate) & " where a.收发状态值='A' and " & CStr(WorkDate) & " a.收发状态值='B') "中。怎办~~；(

Answer 3

1、
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# order by 收发状态值" 结果应该是:
ID    发报社号   ...   收发状态值
----  ---------        ----------
1     XXX        ...   A
3     YYY        ...   A
4     ZZZ        ...   A
2     111        ...   B
5     222        ...   B
6     333        ...   B用一个记录集能做到这样,应该算分开了吧??2、
汇总:
rsUser1.Open "SELECT count(ID) as 个数,收发状态值 FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# group by 收发状态值"结果应该是:
个数       收发状态值
-----     ------------
3         A
5         B只有两条记录,还要怎么分开??

Answer 4

在提供一个答案,希望是你要的:
1、
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,IIF(收发状态值='A',TRUE,FALSE) AS A,IIF(收发状态值='B',TRUE,FALSE) AS B FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# order by 收发状态值" 结果应该是:
ID    发报社号   ...   A           B
----  ---------        ----------  ----------
1     XXX        ...   TRUE        FALSE
3     YYY        ...   TRUE        FALSE
4     ZZZ        ...   TRUE        FALSE
2     111        ...   FALSE       TRUE
5     222        ...   FALSE       TRUE
6     333        ...   FALSE       TRUE2、
rsUser1.Open "SELECT SUM(IIF(收发状态值='A',1,0)) AS A,SUM(IIF(收发状态值='A',1,0)) AS B FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "#"结果应该是:
A       B
----    -----
3       5只有一条记录

Answer 5

更正:再提供一个答案,希望是你要的:
1、
rsUser.Open "SELECT ID,发报社号,发报社名,收报社号,收报社名,金额,收款社名称,付款单位名称,编报日期,IIF(收发状态值='A',TRUE,FALSE) AS A,IIF(收发状态值='B',TRUE,FALSE) AS B FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "# order by 收发状态值" 结果应该是:
ID    发报社号   ...   A           B
----  ---------        ----------  ----------
1     XXX        ...   TRUE        FALSE
3     YYY        ...   TRUE        FALSE
4     ZZZ        ...   TRUE        FALSE
2     111        ...   FALSE       TRUE
5     222        ...   FALSE       TRUE
6     333        ...   FALSE       TRUE2、
rsUser1.Open "SELECT SUM(IIF(收发状态值='A',1,0)) AS A,SUM(IIF(收发状态值='B',1,0)) AS B FROM [" & CStr(WorkDate) & "] WHERE 编报日期 between #" & "99-6-1" & "# and #" & "02-6-1" & "#"结果应该是:
A       B
----    -----
3       5只有一条记录