试试
Dim tal As Integer = CurrentTable.DataTable.Compute("Sum(税前工资)","核算月份 = '" & dt &"'")
改成
Dim tal As Double = CurrentTable.DataTable.Compute("Sum(税前工资)","核算月份 = '" & dt &"'")