以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]统计模式合并数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160994)

--  作者:huangjiacai
--  发布时间:2021/3/1 11:54:00
--  [求助]统计模式合并数据
分组统计模式下要如何设置代码才能将某列多行内容至一行
--  作者:有点蓝
--  发布时间:2021/3/1 12:05:00
--  
请截图或者上传实例说明
--  作者:huangjiacai
--  发布时间:2021/3/1 15:24:00
--  
www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158791&authorid=0&page=0&star=4 31楼
附件如上一个问题的附件一样,最右侧列”预算使用范围“,想放在”统计表1“的最右侧列上,因为行分组相当于是已经合并同名分组的了,怎样才能将”预算使用范围“列的内容也合并聚拢起来呢
[此贴子已经被作者于2021/3/1 15:24:42编辑过]

--  作者:有点蓝
--  发布时间:2021/3/1 15:59:00
--  
统计后加上下面代码:

t.DataTable.DataCols.Add("预算使用范围",Gettype(String),255)
For Each r As Row In t.Rows
r("预算使用范围") = DataTables("预算库").GetComboListString("预算使用范围","顺序号=\'" & r("顺序号") & "\' and 二级科目=\'" & r("二级科目") & "\' and 三级科目=\'" & r("三级科目") & "\'")
Next

--  作者:huangjiacai
--  发布时间:2021/3/1 16:33:00
--  
提示空间不够,被自动截短,是不是用备注型好一点呢?
--  作者:有点蓝
--  发布时间:2021/3/1 16:36:00
--  
不够就改备注型呗
--  作者:huangjiacai
--  发布时间:2021/3/1 16:40:00
--  
备注型没用代码写过,怎么敲?
--  作者:有点蓝
--  发布时间:2021/3/1 16:43:00
--  
t.DataTable.DataCols.Add("预算使用范围",Gettype(String),4000)