给你举个例子吧:我一直采用这种方法,使用mshflexgrid显示查询后的记录
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rshz As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" + App.Path + "\data.mdb" + "'"'打开数据库
rs.Open "select * from sys", conn, adOpenKeyset, adLockPessimistic'打开表
rshz.Open "select sum(金额) as 合计 from sys", conn, adOpenKeyset, adLockPessimistic'计算金额汇总
set mshflexgrid.datasource=rs
With MShflexgrid'在表格的最后一行,第2列写上合计数
i = .rows - 1
.TextMatrix(TopRow + i, 1) = "合计"
.TextMatrix(TopRow + i, 2) = rshz.Fields("合计")
End With
呵,,方便简单,再配上直接打印mshflexgrid的打印预览控件,效果非常好!