.版本 2
.支持库 eGrid
.支持库 spec
.子程序 修改_保存
.局部变量 计次, 整数型
.局部变量 a, 整数型
.局部变量 表1, 日期时间型
.局部变量 表2, 文本型
.局部变量 表3, 文本型
.局部变量 表4, 文本型
.局部变量 表5, 文本型
.局部变量 表6, 文本型
.局部变量 表7, 文本型
.局部变量 表8, 文本型
.局部变量 表9, 文本型
.局部变量 表10, 文本型
.局部变量 表11, 文本型
.局部变量 表12, 文本型
.局部变量 表13, 文本型
.局部变量 表14, 文本型
.局部变量 表15, 文本型
.局部变量 表16, 文本型
.局部变量 表17, 文本型
.局部变量 表18, 文本型
.局部变量 表19, 文本型
.局部变量 表20, 文本型
.局部变量 表21, 文本型
.局部变量 表22, 文本型
.局部变量 表23, 文本型
.局部变量 表24, 文本型
.局部变量 表25, 文本型
打开 (这里改写成你的数据库, , , , , , )
置等待鼠标 ()
到首记录 ()
.计次循环首 (高级表格1.行数 - 1, 计次)
.如果真 (查找 (到文本 (读 (#序号)) = 高级表格1.取数据 (计次, 0)))
表1 = 到时间 (高级表格1.取数据 (计次, 1))
表3 = 高级表格1.取数据 (计次, 3)
表4 = 高级表格1.取数据 (计次, 4)
表5 = 高级表格1.取数据 (计次, 5)
表6 = 高级表格1.取数据 (计次, 6)
表7 = 高级表格1.取数据 (计次, 7)
表8 = 高级表格1.取数据 (计次, 8)
表9 = 高级表格1.取数据 (计次, 9)
表10 = 高级表格1.取数据 (计次, 10)
表11 = 高级表格1.取数据 (计次, 11)
表12 = 高级表格1.取数据 (计次, 12)
表13 = 高级表格1.取数据 (计次, 13)
表14 = 高级表格1.取数据 (计次, 14)
表15 = 高级表格1.取数据 (计次, 15)
表16 = 高级表格1.取数据 (计次, 16)
表17 = 高级表格1.取数据 (计次, 17)
表18 = 高级表格1.取数据 (计次, 18)
表19 = 高级表格1.取数据 (计次, 19)
表20 = 高级表格1.取数据 (计次, 20)
表21 = 高级表格1.取数据 (计次, 21)
表22 = 高级表格1.取数据 (计次, 22)
表23 = 高级表格1.取数据 (计次, 23)
表24 = 高级表格1.取数据 (计次, 24)
表25 = 高级表格1.取数据 (计次, 25)
日期框转换.今天 = 表1
调试输出 (表1, 表3, 表4, 表5)
.如果真 (修改 (, 取日期 (日期框转换.今天), , 表22, 表18, 表3, 表4, 表5, 表6, 表7, 表9, 表8, 表10, 表11, 表13, 表12, 表16, 表21, 表15, 表19, 表24, 表21, 表14, 表20, 表25, 表17, 表12, 表23) = 假)
信息框 (“修改信息失败!原因为” + #左引号 + 取错误信息 () + #右引号 + “。”, #错误图标, “错误”, )
关闭 ()
返回 ()
.如果真结束
计次 = 计次 + 1
.如果真结束
.计次循环尾 ()
信息框 (“修改成功”, 0, , )
关闭 ()
恢复鼠标 ()