1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command3_Click()
Adodc1.RecordSource = "select bh, sum(grzh) as 发放总金额 from sdtx group by bh union select '总计',
sum(grzh)as 发放总金额 from sdtx"
Adodc1.Refresh
Me.DataGrid1.Columns(1).NumberFormat = "0.00"
End Sub