将数据库的内容导出Excel后,是否可将其进行分组,并且统计?
或者在导出的过程中先进行分组统计?
请教各位大侠!
谢谢!
或者在导出的过程中先进行分组统计?
请教各位大侠!
谢谢!
解决方案 »
- 如何限制VSFlexGrid某个单元格的输入长度?
- 关于打印的一点小问题,请教高手。
- 关于VB6.0数据库里日期自动UPDATE和计算?
- 系统错误:&h80070583(-2147023485).类别不存在
- 怎样将access数据库中的纪录添加到SQL Ssever数据库中?
- 求助!制作的安装文件出现 注册文件'C:\WINNT\system32\msado21.tlb'出错 错误!!
- [BlueDog] 请问如何读取系统是否装有Modem,Modem装在什么口(Com1,Com2,Com3)?
- 关于DataReport和sql的菜鸟问题
- MSHFlexGrid删除行时提示对象关闭
- 还有活的必要吗?
- 关于数据查询的问题
- 读取 EXCEL 性能问题,高手进来看看
一般的分组统计都可以通过SQL语句直接来实现的。具体还要楼主要实现什么样的统计,不妨说出来大家分析分析啊!
导出是有如下数据
a b c d e f
s1 0203 name 3 6 16
s1 0203 name 3 6 16
s2 0203 name 3 6 16
s2 0203 name 3 6 16
s2 0203 name 3 6 16
导出时要成这样:
a b c d e f
s1
0203 name 3 6 16
0203 name1 3 6 16
s2
0203 name 3 6 16
0203 name1 3 6 16
0203 name2 3 6 16
导出方式是普通的数据集Recordset方式导出的...
就是这个分组统计搞不懂啊...
a b c d e f
s1 0203 name 3 6 16
s1 0203 name 3 6 16
s2 0203 name 3 6 16
s2 0203 name 3 6 16
s2 0203 name 3 6 16
那么你重新排版就可以得到你要的格式了,也就是判断一下a值,如果下一个和上一个不样插入一行,填充相关值,最后清除a列的值,就可以了吧?
你可以这样,将相关操作比如,插入一行啊,合并列啊,向行中填充数据啊,等等分别录制宏,按alt + f11打开excel的模块代码,就可以得到相关操作的代码了,在VB中优化一下就可以了。
Dim i&
Dim s$
...
rs.Open "select * from yourtable order by a", Conn
rs.MoveFirst
i = 1
s = ""
Do Until rs.EOF
If rs("a") <> s Then
s = rs("a")
XLSHEET.Cells(i, 1) = rs("a")
i = i + 1
End If
XLSHEET.Cells(i, 2) = rs("b")
XLSHEET.Cells(i, 3) = rs("c")
XLSHEET.Cells(i, 4) = rs("d")
XLSHEET.Cells(i, 5) = rs("e")
XLSHEET.Cells(i, 6) = rs("f")
i = i + 1
rs.MoveNext
Loop
如果不知道怎么写就录制宏然后看VBA的代码