展开全部
.版本 2
.支持库 eGrid
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _高级表格1_列宽被改变
.参数 列号, 整数型
高级表格2.置列宽 (0, 高级表格1.取列宽 (0))
高级表格2.置列宽 (1, 高级表格1.取列宽 (1))
高级表格2.置列宽 (2, 高级表格1.取列宽 (2))
高级表格2.置列宽 (3, 高级表格1.取列宽 (3))
高级表格2.置列宽 (4, 高级表格1.取列宽 (4))
.子程序 __启动窗口_创建完毕
高级表格2.置数据 (0, 0, #表格常量.文本型, “合计:”)
高级表格2.置数据 (0, 4, #表格常量.文本型, “合计222:”)
高级表格1.置列类型 (4, #表格常量.货币型)
高级表格2.置列类型 (4, #表格常量.货币型)
.子程序 _高级表格1_结束编辑
.如果真 (高级表格1.取光标行号 () = 高级表格1.行数 - 1) ' 说明到最后一行了,再自动加一行,
高级表格1.插入行 (到文本 (高级表格1.行数), )
' 高级表格2.置数据 (0, 4, , )
.如果真结束
高级表格2.置数据 (0, 4, #表格常量.文本型, 高级表格金额合计 (高级表格1, 4))
编辑框1.内容 = 到文本 (高级表格金额合计 (高级表格1, 4))
.子程序 高级表格金额合计, 整数型
.参数 高级表格, 高级表格
.参数 合计列
.局部变量 金额
.局部变量 计次
.计次循环首 (高级表格.行数 - 1, 计次)
金额 = 金额 + 到数值 (高级表格.取数据 (计次, 合计列))
.计次循环尾 ()
调试输出 (金额)
返回 (金额)
.支持库 eGrid
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _高级表格1_列宽被改变
.参数 列号, 整数型
高级表格2.置列宽 (0, 高级表格1.取列宽 (0))
高级表格2.置列宽 (1, 高级表格1.取列宽 (1))
高级表格2.置列宽 (2, 高级表格1.取列宽 (2))
高级表格2.置列宽 (3, 高级表格1.取列宽 (3))
高级表格2.置列宽 (4, 高级表格1.取列宽 (4))
.子程序 __启动窗口_创建完毕
高级表格2.置数据 (0, 0, #表格常量.文本型, “合计:”)
高级表格2.置数据 (0, 4, #表格常量.文本型, “合计222:”)
高级表格1.置列类型 (4, #表格常量.货币型)
高级表格2.置列类型 (4, #表格常量.货币型)
.子程序 _高级表格1_结束编辑
.如果真 (高级表格1.取光标行号 () = 高级表格1.行数 - 1) ' 说明到最后一行了,再自动加一行,
高级表格1.插入行 (到文本 (高级表格1.行数), )
' 高级表格2.置数据 (0, 4, , )
.如果真结束
高级表格2.置数据 (0, 4, #表格常量.文本型, 高级表格金额合计 (高级表格1, 4))
编辑框1.内容 = 到文本 (高级表格金额合计 (高级表格1, 4))
.子程序 高级表格金额合计, 整数型
.参数 高级表格, 高级表格
.参数 合计列
.局部变量 金额
.局部变量 计次
.计次循环首 (高级表格.行数 - 1, 计次)
金额 = 金额 + 到数值 (高级表格.取数据 (计次, 合计列))
.计次循环尾 ()
调试输出 (金额)
返回 (金额)
展开全部
仅供参考,详细请查看代码
追问
我是想把合计那一栏固定在表格最下面添加数据的时候自动累加
追答
你往合计上面一行插入行就可以了,然后再写个合计的函数出来直接调用。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
下载上面的源码就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |