这样?
dim s as string = "IsNull([应收款收入数],0) + IsNull([项目资金借入数],0) + IsNull([工抵房回款],0) + IsNull([超成本资金],0) - IsNull([建安fa piao开piao数],0) - IsNull([项目资金还款数],0) - IsNull([支出合同应付款_已付数],0) - IsNull([工资支付数],0) - IsNull([其他成本支出数],0) - IsNull([税费报销支出],0) - IsNull([总部申报数],0) - IsNull([印花税_支出合同],0) - IsNull([印花税_固定资产],0) - IsNull([管理费汇总_合计],0) - IsNull([企业所得税_总部预交],0) - IsNull([固定资产_折旧资金支出],0) - IsNull([工抵房],0) - IsNull([税后列支_支出数],0)"
dim filter as string = "合同编号 = '" & dr("主合同编号") & "'"
DataTables("工程合同基础数据").SQLReplaceFor("项目资金当前余额" ,s ,filter ,True)