- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求按键代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183512)
-- 发布时间：2022/11/7 23:06:00
-- [求助]求按键代码
设计一按键，将重复行"成分名称"删除剩一行，然后将行“订单数量”合计，将行“配比”平均值，谢谢
-- 发布时间：2022/11/7 23:07:00
--
此主题相关图片如下：相同.jpg
-- 发布时间：2022/11/8 8:40:00
--
tables("a").sort = "成分名称"
dim r0 as row = tables("a").rows(tables("a").rows.count - 1)
dim zl as integer = r0("所需重量")
dim sl as integer = r0("订单数量")
for i as integer = tables("a").rows.count - 2 to 0 step -1
dim r as row = tables("a").rows(i)
if r0("成分名称") = r("成分名称") then
zl = zl + r("所需重量")
sl = sl + r("订单数量")r.delete
else
r0("订单数量") = sl
r0("所需重量") = zlr0 = r
zl = r("所需重量")
sl = r("订单数量")end if
next
r0("订单数量") = sl
r0("所需重量") = zl-- 发布时间：2022/11/8 12:26:00
--
谢谢！