Val = DataTables("合同管理_fa piao到款列表").SQLCompute("Sum(到款金额)","[销售工程师] = '" & user.name & "' And [到款日期] = '" & Date.Today.Year & "'")