注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

你想快速掌握安卓编程吗

 
 
 

日志

 
 

[原创]表格控件中添加合计行的功能  

2014-07-07 16:30:33|  分类: B.例程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
(作者:张经理_CZHIS(QQ24959563) http://www.qmyb.net


在我的博客上有篇我用了很多中文来注解的一个表格控件的博客文章,我现在一时找不出来了,有心的人可以找一下。下面的这个函数就插入到这个类模块代码中即可。


[原创]表格控件中添加合计行的功能 - 沉默蜂 - Basic4android安卓编程

具体代码如下:
'添加合计行
'Values中 传入合计二字,在表格中显示合计二字,传入点:.该列sum(x),传入逗号:,该列count(x)
Public Sub AddSumRow(Values() As String )
Dim l,m As Long
Dim decTmparr() As String 
Dim decValues(Values.Length),decTmp As Float 

For l = 0 To Data.Size - 1
decTmparr = Data.Get(l)
For m = 0 To Values.Length - 1
If Values(m) = "." Then
'Msgbox(decTmparr.Length,l)
If IsNumber(decTmparr(m)) Then
decTmp = decTmparr(m)
decValues(m) = decValues(m) + decTmp
End If
End If
Next
Next

Dim rowdata(Values.Length) As String  
For m = 0 To Values.Length - 1
If Values(m) = "合计" Then
rowdata(m) = "合计"
Else If Values(m)="." Then
rowdata(m) = decValues(m)
Else If Values(m)="," Then
rowdata(m) = Data.Size
End If
Next

'将合计行添加到表格尾
AddRow(rowdata)

End Sub
 
 
  评论这张
 
阅读(224)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017