|  | 
 
 发表于 2023-5-9 14:10:12
|
显示全部楼层
   黑龙江省哈尔滨市 
  
| 在启动窗口创建完毕那里 按月统计 ()的后面加上此子程序
 
 
    | 变量名 | 类 型 | 静态 | 数组 | 备 注 |  | 局_计次 | 整数型 |  |  |  | 小计所在行 | 整数型 |  | 0 |  | i | 整数型 |  |  |  | 其他应收小计 | 整数型 |  |  |  | 数量小计 | 整数型 |  |  |  | 数量 | 整数型 |  |  |  | 销售收入 | 整数型 |  |  |  | 行记录 | 整数型 |  |  | 
 小计所在行 = {  } 行记录 = 0  计次循环首 ( 高级表格1.行数 - 1, 局_计次)   如果真 ( 高级表格1.取数据 ( 局_计次, 4)  = “小计”)   加入成员 ( 小计所在行, 局_计次)    计次循环尾 ()调试输出 ( 小计所在行)  计次循环首 (取数组成员数 ( 小计所在行) , 局_计次)  其他应收小计 = 到整数 ( 高级表格1.取数据 ( 小计所在行 [ 局_计次] , 10) )  数量小计 = 到整数 ( 高级表格1.取数据 ( 小计所在行 [ 局_计次] , 6) )   判断 ( 局_计次 = 1)    计次循环首 ( 小计所在行 [ 1]  - 1, i)     如果真 ( i ≥ 2)     数量 = 到整数 ( 高级表格1.取数据 ( i, 6) )     销售收入 = 到整数 ( 高级表格1.取数据 ( i, 9) )     高级表格1.置数据 ( i, 11, #表格常量  .文本型, 到文本 ( 其他应收小计 ÷ 数量小计 × 数量 + 销售收入) )    行记录 = 行记录 + 1    计次循环尾 ()        行记录 = 行记录 + 1      计次循环首 ( 小计所在行 [ 局_计次]  - 小计所在行 [ 局_计次 - 1]  - 1, i)     如果真 ( 小计所在行 [ 局_计次]  = i)     行记录 = 行记录 + 1     跳出循环 ()    数量 = 到整数 (高级表格1.取数据 (行记录, 6))    销售收入 = 到整数 ( 高级表格1.取数据 ( 行记录, 9) )    高级表格1.置数据 ( 行记录 + 1, 11, #表格常量  .文本型, 到文本 ( 其他应收小计 ÷ 数量小计 × 数量 + 销售收入) )    行记录 = 行记录 + 1    计次循环尾 ()    计次循环尾 ()
 | 
 评分
查看全部评分
 |