数据库(包含打印，安装，报表)
请帮忙解决VB中条件累加的代码
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区数据库有一串Data String有99个循环值（每个值叫Data Line），而在每个Data Line中又有10个值分别为5组的循环值(Code & Amount)。
要实现的是，把所有99个Data Line内 相同的 Code所对应的Amount进行累加，而且在输出行里 相同的Code 只能输出一次。
如：DataLine1 C1, 100, D1, 200, E1, 300, F1, 400, G1, 500;
DataLine1 C1, 80, D1, 90, E1, 120, F1, 180, G1, 260;
实现为 C1*180
D1*290
E1*420
F1*580
G1*760
因为里面有2个循环，请各位高手不吝赐教。
谢谢。
相关推荐
vb常用算法
有利于刚学习vb的新手来看看 Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（"输入n"）） s = 1 For i = 1 To n s = s * i Next i Print s End Sub 错误的写法： Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（"输入n"）） For i = 1 To n s = 1 ‘赋初值语句位置不对！ s = s * i Next i Print s ‘输出s的值为n，而不是n！ End Sub 应用举例 根据下列公式，求自然对数e的的近似值。 要求：误差小于0.00001 Private Sub Command1_Click（） Dim i%， n&， t！， e！ e = 2 i = 1 t = 1 Do While t > 0.00001 i = i + 1 t = t / i e = e + t Loop Print "计算了"； i； "项目和是："； e Print Exp（1） ‘与上句输出值进行对比以证明算法的正确性 End Sub
vb实例源码
多组vb编程例题，很简单的简单学习vb编程
VB源代码天数累加
自动记录安全天数，可以自动累加，
动态显示1~10的累加过程(VB6.0代码编写)
内附源代码 动态显示1~10的累加过程(VB6.0代码编写) 本着学习的态度与大家分享
VB基本算法——累加和累乘.docx
VB基本算法——累加和累乘.docx
