- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何文本相加[已解決] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40991)
-- 发布时间：2013/10/8 22:15:00
-- 如何文本相加[已解決]
列是文本
但內容是数字
想利用代码把內容相加 ,答案在 总数列显示
想了很久都沒头绪
求老師提供思路
此主题相关图片如下：e.jpg
想到这样写
If e.DataCol.Name = "客户" Then
Dim Tot As String
Dim nm1s() As String = { "手雕" ,"电雕" ,"蜡钉","倒模","银版","银钉","修版" ,"压模" ,"收发" }
For Each nm1 As String In nm1s
e.DataRow(nm1) = DataTables("进度").Compute( "Sum(行编码)"," 项目状态 <> \'暂停\' and 所在部门 = \'" & nm1 & "\' And 测未完 = 1 And 客戶 = \'" & e.NewValue & "\'" )
Tot = Tot + e.DataRow(nm1)
Next
e.DataRow("总数")= Tot
Tot = 0
End If
如MI 客户 7+1 答案应是8
结果 是71 失败了
[此贴子已经被作者于2013-10-9 1:33:34编辑过]
-- 发布时间：2013/10/8 22:17:00
--
你的意思是文本列使用统计函数 统计出值？
-- 发布时间：2013/10/8 22:20:00
--
嗯 大概是这样
-- 发布时间：2013/10/8 22:27:00
--
直接改就行了。
If e.DataCol.Name = "客户" Then
Dim Tot As Double = 0
Dim nm1s() As String = { "手雕" ,"电雕" ,"蜡钉","倒模","银版","银钉","修版" ,"压模" ,"收发" }
For Each nm1 As String In nm1s
e.DataRow(nm1) = DataTables("进度").Compute( "Sum(行编码)"," 项目状态 <> \'暂停\' and 所在部门 = \'" & nm1 & "\' And 测未完 = 1 And 客戶 = \'" & e.NewValue & "\'" )
Tot = Tot + val(e.DataRow(nm1))
Next
e.DataRow("总数")= Tot
End If
-- 发布时间：2013/10/8 23:27:00
--
果然成功
帮助文档里有,就是不知用什麼关键字
谢谢小甜甜