Private Sub Command47_Click()
'Dim rst As Object
Dim CSRQ As Date
Dim jsrq As Date
Dim strSQL As String
Me.Text40.Requery
Me.Text42.Requery
CSRQ = Form_HZCX.Text40
jsrq = Form_HZCX.Text42
strSQL = "SELECT '住院汇总' AS 减免类型 ,COUNT([ZYZFY]) AS 减免人次 ,Round(Sum([ZYZFY]),2) AS 总费用, Round(Sum([XNHBCJE]),2) AS 医保补偿费用, Round(Sum([QTBCJE]),2) AS 其它补偿费用, Round(Sum([BCJMFY]),2) AS 减免费用, Round(Sum([GRZFJE]),2) AS 个人自付费用FROM FYMXWHERE (FYMX.HSSJ > # " & CSRQ & " # And FYMX.HSSJ < # " & jsrq & " # ) ; UNION SELECT '门诊汇总' AS 减免类型 , COUNT([MZZFY]) AS 减免人次 ,Round(Sum([MZZFY]),2) AS 总费用, Round(Sum([XNHBCJE]),2) AS 医保补偿费用, (0) AS 其它补偿费用, Round(Sum([BCJMFY]),2) AS 减免费用, Round(Sum([GRZFJE]),2) AS 个人自付费用FROM FPMZJM WHERE (((FPMZJM.HSSJ) > # " & CSRQ & " # And (FPMZJM.HSSJ) < # " & jsrq & " # )) ; UNION SELECT '慢病汇总' AS 减免类型 , COUNT([MZZFY]) AS 减免人次 ,Round(Sum([MZZFY]),2) AS 总费用, Round(Sum([XNHBCJE]),2) AS 医保补偿费用, (0) AS 其它补偿费用, Round(Sum([BCJMFY]),2) AS 减免费用, Round(Sum([GRZFJE]),2) AS 个人自付费用FROM FPMBJMWHERE (((FPMBJM.HSSJ) > # " & CSRQ & " # And (FPMBJM.HSSJ) < # " & jsrq & " # ));"
Me.CX.Form.RecordSource = strSQL
Me.Refresh
End Sub
