- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 对字符计数统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97813)
-- 发布时间：2017/3/18 21:47:00
-- 对字符计数统计
生成的EXCEL模板叫非领导职位空缺 在该表的单元格插入<字符> 字符代表 原来竖名册中按照单位名称分类后，统计单位性质为机关的数量。 比如有四个机关 最后计数为4 如何修改
Select Case e.Book.TempLate
Case "非领导职位空缺"
Dim Filter As String = "单位名称 = \'" & e.DataRow("单位名称") & "\'"
Dim dt As DataTable = DataTables("竖名册")
Dim sum1 As Double = dt.Compute("Sum(单位性质)",Filter)
Dim s1 As String = dt.GetComboListString("单位性质", filter).replace("|", ",").trim(",")
e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & sum1 & s1
End Select
-- 发布时间：2017/3/20 7:56:00
--
我理解能力不行，没看懂你得问题，请重新描述。
-- 发布时间：2017/3/20 21:02:00
-- 回复：（狐狸爸爸）我理解能力不行，没看懂你得问题，...
如何实现非领导职务模板中 单元格所期待的内容
-- 发布时间：2017/3/20 21:03:00
-- 回复：（狐狸爸爸）我理解能力不行，没看懂你得问题，...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1_201703202100.zip |
-- 发布时间：2017/3/20 21:16:00
--
Dim sum1 As Double = dt.Compute("Count(单位性质)",Filter & " and 单位性质=\'机关\'")
-- 发布时间：2017/4/13 8:29:00
-- 回复：（有点蓝）Dim sum1 As Double = dt.Compute("C...
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 s1 As String = dt.GetComboListString("单位性质", filter).replace("|", ",").trim(",")
e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & sum1 & s1
End Select
是这样么？ 老师 我的单元格
此主题相关图片如下：tlo@lbzpu4g%p2u@f5gzjcj.png
此主题相关图片如下：tlo@lbzpu4g%p2u@f5gzjcj.png-- 发布时间：2017/4/13 8:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新建 好压 zip 压缩文件.zip |
-- 发布时间：2017/4/13 8:54:00
-- 回复：（guimingze）回复：（有点蓝）Dim sum1 As Dou...
抱歉 老师我没认真看 我整出来了
-- 发布时间：2017/4/13 10:24:00
-- 回复：（有点蓝）Dim sum1 As Double = dt.Compute("C...
老师按照你给代码我研究出来 但是问题1我要想求一下机关+参公的合计 问题2求一下机关+参公的合计后除以2 比如机关为3 参公为2 合计为5 5除以2 2.5
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 单位性质=问题1\'")
Dim sum4As Double = dt.Compute("Count(单位性质)",Filter & " and 单位性质=问题2\'")
e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & " 机关:" & sum1 & " 参公:" & sum2
End Select
-- 发布时间：2017/4/13 10:26:00
--
sum1+sum2 不就是合计？
除以2，这样写 (sum1+sum2) / 2