消息框提示计算结果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 消息框提示计算结果

共有2094人关注过本帖树形打印复制链接主题：消息框提示计算结果

表叔

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1620 威望：0 精华：0 注册：2016/12/22 18:08:00

消息框提示计算结果 发帖心情

Post By：2019/3/27 9:54:00 [只看该作者]

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，不知为啥

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/27 11:00:00 [只看该作者]

试试

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

改成

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

下一主题 >> << 上一主题

主题：消息框提示计算结果