找回密码
 加入
搜索
查看: 9153|回复: 28

[系统综合] 数组如何对col 0 前10位一样并且col 2一样的col 3值(加总) 进行分类汇总!!

 火.. [复制链接]
发表于 2013-2-28 13:18:30 | 显示全部楼层 |阅读模式
本帖最后由 liupeng1990607 于 2013-3-1 08:24 编辑






以上是资料表跟要求!
把上面图的资料变为下面listview格式 分类汇总

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2013-2-28 14:31:43 | 显示全部楼层
用字典就可以了
 楼主| 发表于 2013-2-28 15:10:27 | 显示全部楼层
回复 2# kevinch


    具体是怎么弄啊 不太明白!!!
发表于 2013-2-28 15:29:51 | 显示全部楼层
上个示例数据,用excel装着就行了,我读取到数组中演示给你
 楼主| 发表于 2013-2-28 16:31:19 | 显示全部楼层
回复 4# kevinch


    资料表已经上传 表里也有我说明的要求 。。。谢谢!!
发表于 2013-2-28 17:34:14 | 显示全部楼层
老实说 我不懂 表格。。。。。。。。。。。。。。。。。。
发表于 2013-2-28 18:06:17 | 显示全部楼层
#include <array.au3>

Dim $arr[1][2]=[["模号","总金额"]]

$xls=ObjGet("z:\资料.xls")
With $xls.worksheets("sheet1")
        $arrt=.range("a1").resize(.cells(.rows.count,1).end(3).row,5).value
EndWith
;_ArrayDisplay($arrt)
$xls.close(False)
$dic=ObjCreate("scripting.dictionary")
For $n=1 To UBound($arrt,2)-1
        $str=StringLeft($arrt[0][$n],10)
        If Not $dic.exists($str) Then
                ReDim $arr[UBound($arr)+1][UBound($arr,2)]
                $dic($str)=UBound($arr)-1
                $arr[$dic($str)][0]=$str
        EndIf
        If Not $dic.exists($arrt[2][$n]) Then
                ReDim $arr[UBound($arr)][UBound($arr,2)+1]
                $dic($arrt[2][$n])=UBound($arr,2)-1
                $arr[0][$dic($arrt[2][$n])]=$arrt[2][$n]
        EndIf
        $arr[$dic($str)][1]+=$arrt[3][$n]
        $arr[$dic($str)][$dic($arrt[2][$n])]+=$arrt[4][$n]
Next
_ArrayDisplay($arr)
总金额放后面不方便,放前面了需要的话,自己输出时重新整理一下就行了,输出到listview之类的,自己完成吧
发表于 2013-2-28 20:06:18 | 显示全部楼层
回复 1# liupeng1990607
建议把数据写入数据库,然后方便统计数据,比listview灵活多了
 楼主| 发表于 2013-3-1 08:13:44 | 显示全部楼层
回复 7# kevinch


    这个数据时从informix抓出来的 你的意思抓出来 然后用sqlite连接?
 楼主| 发表于 2013-3-1 08:19:52 | 显示全部楼层
回复 6# 老萧


    得出来的值有问题吧 时间比总金额都大? 因为这个excel中最后的金额 是时间x代码1对应的单价得出来的!!!!!!!!!!!!!!!!!
 楼主| 发表于 2013-3-1 08:25:58 | 显示全部楼层
没有人吗  直接先顶一下!!!!!!!!!!!!!!!!!!
 楼主| 发表于 2013-3-1 09:39:15 | 显示全部楼层
本帖最后由 liupeng1990607 于 2013-3-1 10:20 编辑

回复 6# 老萧


。。。。。。。。。。。。。。。。。。。。。。。。。。。。
发表于 2013-3-2 12:48:46 | 显示全部楼层
看看 学习下 !!!
 楼主| 发表于 2013-3-3 16:09:38 | 显示全部楼层
自己顶一下 求帮助!!!!!!
发表于 2013-3-3 17:20:54 | 显示全部楼层
informix直接用Provider=Ifxoledbc;Data Source=dbName@serverName;User ID=myUsername;Password=myPassword;连接,sqlite直接操作,不用导数据
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 02:25 , Processed in 0.079130 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表