Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：求助
1楼
布莱克朱 发表于：2011/12/11 17:00:00

单元格输入了     银行,2000  卡号,1000      我想自动相加里面的数字.

 

 

[此贴子已经被作者于2011-12-11 17:10:31编辑过]
2楼
狐狸爸爸 发表于：2011/12/11 20:44:00
Dim sum As Double
Dim s As String  = "银行,2000  卡号,1000"
s = s.replace(" ",",")
Dim vals() As String  = s.split(",")
For Each v As String In vals
   If Isnumeric(v)  Then
      sum = sum + cdbl(v)
    End If
Next
output.show(sum)
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.