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


  共有2684人关注过本帖树形打印复制链接

主题：对字符计数统计
帅哥哟，离线，有人找我吗？
guimingze
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00 		回复：（有点色） sum1+sum2 不就是合计？&nbs...  发帖心情 Post By：2017/4/13 13:31: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 = dt.Compute("Count(单位性质)",Filter & " and 单位性质=' sum1+sum2'")
    Dim sum5 As Double = dt.Compute("Count(单位性质)",Filter & " and 单位性质=' (sum1+sum2) / 2'")
    e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & "   机关:"  & sum1 &  "   参公:" & sum2 &  "   实际配备非领导职务:" & sum3 &  "   机关数量:" & sum4 &  "   应配职数:" & sum5
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
guimingze
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00 		回复：（有点色）汗... Select Case e.Book....  发帖心情 Post By：2017/4/13 16:55:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
guimingze
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00 		回复：（有点色）汗... Select Case e.Book....  发帖心情 Post By：2017/4/14 8:43:00 [只看该作者]

老师我又遇到新问题了，我想在生成的EXCEL里最后一行生成一个汇总版的 e.Book.Marks("字符2") = 机关:"  & sum1 &  "   参公:" & sum2 &  "   机关职数:" & sum4 &  "   应配非领导职务职数:" & sum5 & "   实际配备非领导职务职数:" & sum3      就是对全市这几项进行汇总 放在字符2里面  请问老师如何实现

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 &  "   机关职数:" & sum4 &  "   应配非领导职务职数:" & sum5 & "   实际配备非领导职务职数:" & sum3
    e.Book.Marks("字符2") = 机关:"  & sum1 &  "   参公:" & sum2 &  "   机关职数:" & sum4 &  "   应配非领导职务职数:" & sum5 & "   实际配备非领导职务职数:" & sum3 
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/4/14 8:57:00 [只看该作者]

代码没有问题，你模板有“<字符2>”这样的标记了吗

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
guimingze
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00 		回复：（有点色）代码写到 AfterBuild 事件&nb...  发帖心情 Post By：2017/4/14 9:33:00 [只看该作者]

放进去了  但是 字符2  还是不显示啊？
此主题相关图片如下：z_07u`ou$_qj2d7~dlkm~7.png
按此在新窗口浏览图片
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/14 9:37:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
guimingze
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00 		回复：（有点色）哦，说错了，是写到 BeforeBuild 事件...  发帖心情 Post By：2017/4/14 9:51:00 [只看该作者]

以上问题已解决   我有两列一个叫科级档次    里面字段（正科级、副科级）    另一个叫职务类别 （领导职务、非领导职务）   我想用用and 实现  科级档次为正科并且职务类别为非领导职务     统计为sum6    科级档次为副科并且职务类别为非领导职务 统计为sum7   如何修改代码？

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(科级档次)", "科级档次='主任科员'")
        Dim sum7 As Double = dt.Compute("Count(科级档次)", "科级档次='副主任科员'")
        e.Book.Marks("字符2") = "机关:"  & sum1 &  "   参公:" & sum2 &  "   机关职数:" & sum4 &  "   应配非领导职务职数:" & sum5 & "   实际配备非领导职务职数:" & sum3 & "   全市主任科员数:" & sum6 & "   全市副主任科员数:" & sum7
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 4 次数据查询