1、列【赔偿金额】改成数值列，不能用字符列；
2、
Dim jyncs13 As Integer = DataTables("售后质量管理").Compute("Sum(赔偿金额)", " 日期>= # " & jny8 & "# And 日期<= # " & jny8z & "#")
改成
Dim jyncs13 As double = DataTables("售后质量管理").Compute("Sum(赔偿金额)", " 日期>= #" & jny8 & "# And 日期<= #" & jny8z & "#")
加好友 
发短信
Post By：2018/9/6 20:24:00 [显示全部帖子]
