Dim dt As Date = e.Form.Controls("DateTimePicker1").Value
Dim y1 As String = dt.Year
Dim m1 As String = dt.Month
Dim ndt As String = y1 & "年" & m1 & "月"
Dim cnt As Integer = CurrentTable.DataTable.Compute("Count(身份证号)","核算月份 = '" & dt &"'")
Dim tal As Integer = CurrentTable.DataTable.Compute("Sum(税前工资)","核算月份 = '" & dt &"'")
MessageBox.Show("本次导入<"& ndt & ">管理部门工资数据<" & cnt & ">条,税前工资合计金额<" & Format(tal,"#,###.00") & ">元!","提示")
这个代码计算出来的值和table合计的值相差0.03,不知为啥