|
|

5精币
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果 (超级列表框1.取标题 (超级列表框1.取表项数 (), 1) = “”)
超级列表框1.删除表项 (超级列表框1.取表项数 () - 1)
加入项目 ()
.否则
加入项目 ()
.如果结束
编辑框1.内容 = “”
编辑框2.内容 = “”
编辑框3.内容 = “”
.子程序 加入项目
.局部变量 加入总额, 整数型
.局部变量 加入位置, 整数型
.如果 (编辑框1.内容 = “” 或 编辑框2.内容 = “” 或 编辑框3.内容 = “”)
信息框 (“请填写完整数据”, 0, )
返回 ()
.否则
加入位置 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (加入位置, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (加入位置, 1, 编辑框1.内容)
超级列表框1.置标题 (加入位置, 2, 编辑框2.内容)
超级列表框1.置标题 (加入位置, 3, 编辑框3.内容)
超级列表框1.置标题 (加入位置, 4, 到文本 (到数值 (编辑框2.内容) × 到数值 (编辑框3.内容)))
.如果结束
加入总额 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (加入总额, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (加入总额, 1, “”) ' 不加“”如若保存或读取会假死
超级列表框1.置标题 (加入总额, 2, “”)
超级列表框1.置标题 (加入总额, 3, “总金额是:”)
超级列表框1.置标题 (加入总额, 4, 到文本 (计算总金额 ()))
.子程序 计算总金额, 双精度小数型
.局部变量 计次, 整数型
.局部变量 总金额临时, 双精度小数型
.局部变量 总金额, 双精度小数型
.计次循环首 (超级列表框1.取表项数 (), 计次)
总金额临时 = 到数值 (超级列表框1.取标题 (计次 - 1, 4))
总金额 = 总金额临时 + 总金额
.计次循环尾 ()
返回 (总金额)
.子程序 _按钮2_被单击
.局部变量 行数, 整数型
.局部变量 列数, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 temp, 文本型
.局部变量 text, 文本型
.局部变量 new, 文本型
行数 = 超级列表框1.取表项数 ()
列数 = 超级列表框1.取列数 ()
.计次循环首 (行数, i)
.计次循环首 (列数, j)
temp = 超级列表框1.取标题 (i - 1, j - 1)
text = text + temp + “ ”
.计次循环尾 ()
new = new + text + #换行符
text = “”
.计次循环尾 ()
写到文件 (取运行目录 () + “\” + 到文本 (取日期 (取现行时间 ())) + “.txt”, 读入文件 (取运行目录 () + “\” + 到文本 (取日期 (取现行时间 ())) + “.txt”) + { 13, 10 } + 到字节集 (new))
|
-
右边在弄一个这程序
最佳答案
查看完整内容
复制窗口组件 (, )
补充内容 (2018-8-15 13:05):
或者鼠标全选组件,复制再粘贴即可~
补充内容 (2018-8-15 13:20):
组件复制与销毁
http://bbs.125.la/forum.php?mod=viewthread&tid=14161932
(出处: 精易论坛)
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|