- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 不同表的统计问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186662)
-- 发布时间：2023/5/18 9:25:00
-- 不同表的统计问题
如何实现表B从表A统计？表B蓝色是表A每隔5行的两个蓝色列的数据相加，表B黄色是表A每隔5行的黄色列的数据+20，
[此贴子已经被作者于2023/5/19 8:46:16编辑过]
-- 发布时间：2023/5/18 9:31:00
--
dim sum as integer
for i as integer = 4 to tables(xx).rows.count - 1 step 5
sum = sum + tables(xx).rows(i)("列一")
next
msgbox(sum)
-- 发布时间：2023/5/18 10:13:00
--
Dim sum As Integer
For i As Integer = 4 To Tables("表AA").rows.count - 1 Step 5
sum = sum + Tables("表BB").rows(i)("列一")
Next
msgbox(sum)
此主题相关图片如下：报错-1.jpg
-- 发布时间：2023/5/18 10:19:00
--
字符列不能求和，改为数值列
-- 发布时间：2023/5/18 10:42:00
--
除了单号是字符，其他都整数型，发生3楼报错
-- 发布时间：2023/5/18 10:44:00
--
Dim sum As Integer
For i As Integer = 4 To Tables("表AA").rows.count - 1 Step 5
if i<Tables("表AA").rows.count
sum = sum + Tables("表BB").rows(i)("列一")
end if
Next
msgbox(sum)
-- 发布时间：2023/5/18 15:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计-1.zip |
还是报错，
-- 发布时间：2023/5/18 15:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:统计.zip |
-- 发布时间：2023/5/18 15:38:00
--
老师，没有实现1楼的效果
需求：
表BB的“第一列”=表A的每隔5行的（“第一列”+“第五列”），
表BB的“第二列”=表A的每隔5行的（“第三列”+20），
-- 发布时间：2023/5/18 15:47:00
--
For i As Integer = 4 To Tables("表AA").rows.count - 1 Step 5
If i < Tables("表AA").rows.count Then
Dim r As Row = Tables("表BB").AddNew
r("第一列") = Tables("表AA").rows(i)("第一列") + Tables("表AA").rows(i)("第五列")
End If
Next