如何对 MSHFlexGrid、记录集 一列数值求和，用简单点的命令语法之类的，求教！！！
还有如何把一个整数转换成带小数点的形式，例如：500 转换成500.00，谢谢了~！
MSHFlexGrid 对一列数值求和
答案:3 悬赏:70 手机版
解决时间 2021-03-03 09:11
- 提问者网友：世勋超人
- 2021-03-03 00:54
最佳答案
- 五星知识达人网友：旧脸谱
- 2021-03-03 01:28
最简单的就是用循环了
for r=1 to msflexgrid1.rows-1
s=s+val(msflexgrid1.textmatrix(r,c))
next r
转换格式用 format(x,"0.00")
for r=1 to msflexgrid1.rows-1
s=s+val(msflexgrid1.textmatrix(r,c))
next r
转换格式用 format(x,"0.00")
全部回答
- 1楼网友：风格不统一
- 2021-03-03 03:26
Dim s As Long
Dim i As Integer
Dim col As Integer
col = 5 '第5列
For i = 1 To MSFlexGrid1.Rows - 1
s = s + Val(MSFlexGrid1.TextMatrix(i, col))
Next
a=500
a=format(a,"0.00") 'a=500.00
- 2楼网友：患得患失的劫
- 2021-03-03 03:07
最简单的就是用循环了
for r=1 to msflexgrid1.rows-1
s=s+val(msflexgrid1.textmatrix(r,c))
next r
转换格式用 format(x,"0.00")
再看看别人怎么说的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯