cmd.CommandText = "select * from (select 0 as _Sortkey,单号,日期,账户,科目名称 as 收支类型,摘要,收入,cdbl(0.0) as 支出,cdbl(0.0) as 余额,客户 as 转账方或收款方,部门,经办人,操作员 from {收入} " & _
" union all Select 0 As _Sortkey, 单号, 日期, 账户, 科目名称 As 收支类型, 摘要, CDbl(0.0) As 收入, 支出, CDbl(0.0) As 余额, 供应商 As 转账方或收款方, 部门, 经办人, 操作员 From {支出} " & _
" union all Select 0 as _Sortkey,单号,日期,账户, 支出类型 as 收支类型, 摘要, cdbl(0.0) As 收入, 借款金额 as 支出,cdbl(0.0) as 余额,借款人 As 转账方或收款方, 部门, 经办人, 操作员 From {借款} " & _
" union all Select 0 As _Sortkey,单号,日期,账户, '还款' as 收支类型,备注 as 摘要,还款金额 As 收入, cdbl(0.0) as 支出,cdbl(0.0) as 余额,还款人 As 客户或供应商,'' as 部门,'' as 经办人,操作员 From {还款} ) As a where " & Vars("日期条件")