请帮助看一下，为何只统计开始日期的一个月的数值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮助看一下，为何只统计开始日期的一个月的数值？

共有7422人关注过本帖树形打印复制链接主题：请帮助看一下，为何只统计开始日期的一个月的数值？

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/23 14:23:00 [显示全部帖子]

是不是你12月份没有数据啊？

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/25 12:39:00 [显示全部帖子]

是否是你的数据没有保存？你的这个是统计后台数据库的。

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/25 13:57:00 [显示全部帖子]

你说的是这段代码没有执行吧？

               Dim r As Row = Tables("导航_Table14").Current
               Dim txt As WinForm.TextBox = e.Form.Controls("TextBox21")   '单面扣分标准
                  r("单面_理论扣分") = r("单面_长度") * txt.Text
               Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox22") '双面扣分标准

                  r("双面_理论扣分") = r("双面_长度") * txt1.Text
               Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox23") '扣分标准单价

                  r("单面_奖罚") = (r("单面_理论扣分") - r("单面_实际扣分"))* txt2.Text
                  r("双面_奖罚") = (r("双面_理论扣分") - r("双面_实际扣分"))* txt2.Text

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/25 13:58:00 [显示全部帖子]

改一下。

For Each r As Row In Tables("导航_Table14").Rows
    Dim txt As WinForm.TextBox = e.Form.Controls("TextBox21")   '单面扣分标准
    r("单面_理论扣分") = r("单面_长度") * txt.Text
    Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox22") '双面扣分标准

    r("双面_理论扣分") = r("双面_长度") * txt1.Text
    Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox23") '扣分标准单价

    r("单面_奖罚") = (r("单面_理论扣分") - r("单面_实际扣分"))* txt2.Text
    r("双面_奖罚") = (r("双面_理论扣分") - r("双面_实际扣分"))* txt2.Text
Next

[此贴子已经被作者于2013-2-25 13:58:29编辑过]

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

主题：请帮助看一下，为何只统计开始日期的一个月的数值？