哪位大师有时间帮忙修改下啊 超级列表框读入配置项的内容怎么编号和后面的内容不能一一对应呢？


.版本 2
.支持库 spec
.支持库 iext
.子程序 _按钮_日报表_被单击
.局部变量 局部_N, 整数型
.局部变量 局部_a, 整数型
.局部变量 总利润, 整数型
.局部变量 利润, 整数型
日报表_节名称 ＝ 取配置节名 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”)
日报表_配方个数 ＝ 取数组成员数 (日报表_节名称)
调试输出 (日报表_节名称)
调试输出 (日报表_配方个数)
.计次循环首 (日报表_配方个数, 局部_N)
超级列表框1.插入表项 (1, 日报表_节名称 [局部_N], , , , )
.计次循环首 (超级列表框1.取表项数 (), 局部_a)
超级列表框1.置标题 (局部_N － 1, 0, 日报表_节名称 [局部_N])
超级列表框1.置标题 (局部_a － 1, 1, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “客户名”, ))
超级列表框1.置标题 (局部_a － 1, 2, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “颜色”, ))
超级列表框1.置标题 (局部_a － 1, 3, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “份数”, ))
超级列表框1.置标题 (局部_a － 1, 4, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “公斤”, ))
超级列表框1.置标题 (局部_a － 1, 5, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “成本”, ))
超级列表框1.置标题 (局部_a － 1, 6, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “售价”, ))
超级列表框1.置标题 (局部_a － 1, 7, 读配置项 (取运行目录 () ＋ “\Daily report\” ＋ 编辑框_日报表.内容 ＋ “.ini”, 日报表_节名称 [局部_a], “利润”, ))
.计次循环尾 ()
' 调试输出 (总利润)
' 超级列表框1.插入表项 (3, 读配置项 (取运行目录 () ＋ “\2017-4-12.ini”, 节名称 [N], “客户”, ), , , , 1)
' 超级列表框1.插入表项 (-1, 读配置项 (取运行目录 () ＋ “\2017-4-12.ini”, 节名称 [N], “客户”, ), , , , )
' 超级列表框1.插入列 (1, 读配置项 (取运行目录 () ＋ “\2017-4-12.ini”, 节名称 [N], “客户”, ), , , , )
' 超级列表框1.置标题 (0, N, 读配置项 (取运行目录 () ＋ “\2017-4-12.ini”, 节名称 [N], “客户”, ))
.计次循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), 局部_a)
利润 ＝ 到数值 (超级列表框1.取标题 (局部_a － 1, 7))
' 调试输出 (利润)
总利润 ＝ 总利润 ＋ 利润
调试输出 (总利润)
超级列表框1.置标题 (0, 8, 到文本 (总利润) ＋ “元”)
.计次循环尾 ()
谁能帮解决红包奖励哦！