这种报表不是一个查询就能完成的, 你可以建立一个临时表, 然后使用代码一行一行的查询到数据填入临时表中, 行程图2这样的结果, 然后把结果输出至报表或者excel, 画上线填上颜色就ok了
只要excel能生成的效果都可以实现
大约后面再添上以下语句,注意WHERE开始是条件可以不要,7列字段名按我格式一个个填上去cn.Open strCn
strSQL = "Select 表名.姓名,表名.性别 from 表名 where 表名.条件列名=条件"
rs.Open strSQL, cn, 1, 3
Sheet1.Range("A1", "Z65000").Clear
Sheet1.Range("A1").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)