对字符计数统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 对字符计数统计

共有2874人关注过本帖树形打印复制链接主题：对字符计数统计

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/13 8:48:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建好压 zip 压缩文件.zip

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/13 10:26:00 [显示全部帖子]

sum1+sum2 不就是合计？

除以2，这样写 (sum1+sum2) / 2

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/13 14:24:00 [显示全部帖子]

汗...

Select Case e.Book.TempLate

Case "非领导职务空缺"

Dim Filter As String = "单位名称 = '" & e.DataRow("单位名称") & "'"

Dim dt As DataTable = DataTables("竖名册")

Dim sum1 As Double = dt.Compute("Count(单位性质)",Filter & " and 单位性质='机关'")

Dim sum2 As Double = dt.Compute("Count(单位性质)",Filter & " and 单位性质='参公'")

Dim sum3 As Double = dt.Compute("Count(职务类别)",Filter & " and 职务类别='非领导职务'")

Dim sum4 As Double = sum1+sum2

Dim sum5 As Double = (sum1+sum2) / 2

e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & " 机关:" & sum1 & " 参公:" & sum2 & " 实际配备非领导职务:" & sum3 & " 机关数量:" & sum4 & " 应配职数:" & sum5

End Select

[此贴子已经被作者于2017/4/13 14:24:26编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/14 9:10:00 [显示全部帖子]

代码写到 beforeBuild 事件

Select Case e.Book.TempLate
    Case "非领导职务空缺"
        Dim dt As DataTable = DataTables("竖名册")
        Dim sum1 As Double = dt.Compute("Count(单位性质)","单位性质='机关'")
        Dim sum2 As Double = dt.Compute("Count(单位性质)", "单位性质='参公'")
        Dim sum3 As Double = dt.Compute("Count(职务类别)", "职务类别='非领导职务'")
        Dim sum4 As Double = sum1+sum2
        Dim sum5 As Double = (sum1+sum2) / 2
        e.Book.Marks("字符2") = "机关:" & sum1 & "   参公:" & sum2 & "   机关职数:" & sum4 & "   应配非领导职务职数:" & sum5 & "   实际配备非领导职务职数:" & sum3
End Select

[此贴子已经被作者于2017/4/14 9:36:43编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/14 9:37:00 [显示全部帖子]

哦，说错了，是写到 BeforeBuild 事件。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/14 9:58:00 [显示全部帖子]

Select Case e.Book.TempLate

Case "非领导职务空缺"

Dim dt As DataTable = DataTables("竖名册")

Dim sum1 As Double = dt.Compute("Count(单位性质)","单位性质='机关'")

Dim sum2 As Double = dt.Compute("Count(单位性质)", "单位性质='参公'")

Dim sum3 As Double = dt.Compute("Count(职务类别)", "职务类别='非领导职务'")

Dim sum4 As Double = sum1+sum2

Dim sum5 As Double = (sum1+sum2) / 2

Dim sum6 As Double = dt.Compute("Count(科级档次)", "科级档次='正科' and 职务类别='非领导职务'")

Dim sum7 As Double = dt.Compute("Count(科级档次)", "科级档次='副科' and 职务类别='非领导职务'")

e.Book.Marks("字符2") = "机关:" & sum1 & " 参公:" & sum2 & " 机关职数:" & sum4 & " 应配非领导职务职数:" & sum5 & " 实际配备非领导职务职数:" & sum3 & " 全市主任科员数:" & sum6 & " 全市副主任科员数:" & sum7

End Select

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/14 9:58:00 [显示全部帖子]

请先补充基础知识

http://www.foxtable.com/webhelp/scr/1647.htm

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

主题：对字符计数统计