|
dim ssql as string
ssql="INSERT INTO 准备 ( 序号,客户号, 审核日期, 退款银行, 客户编码, 应付收益, 已领收益, 增值收益, 合计, 编码 ) "
ssql=ssql & "SELECT (SELECT IIF(Max(准备.序号)>=1,Max(准备.序号),0) FROM 准备)+1 AS 序号, "
ssql=ssql & "客户查询02.客户号, Date() AS 审核日期, 客户查询02.退款银行, 客户查询02.客户编码, "
ssql=ssql & " Round(客户查询02.贷方*客户查询02.增值比例,2) AS 应付收益, forms!总账客户!TEXT71 AS 已领收益, "
ssql=ssql & "Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 增值收益, "
ssql=ssql & "Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 合计, 客户查询02.编码 "
ssql=ssql & "FROM 客户查询02;"
docmd.runsql ssql |
|