|
发表于 2016-8-19 10:32:00
|
显示全部楼层
河南省信阳市
.版本 2
.支持库 eDB
.支持库 eGrid
.子程序 填充表格数据
.局部变量 临时文本, 文本型
.局部变量 临时数值, 文本型
.局部变量 记录数, 整数型
.局部变量 写入列号, 整数型, , "5"
.局部变量 行数变量, 整数型
.局部变量 列数变量, 整数型
.局部变量 控制行数, 整数型
重定义数组 (项目文本, 假, 0)
重定义数组 (项目数值, 假, 0)
项目数 = 0
用户管理表格.重画 ()
记录集1.到首记录 ()
.计次循环首 (记录集1.记录数量, 记录数)
记录集1.读文本 (“医生姓名”, 临时文本)
记录集1.读文本 (“MZTJ”, 临时数值)
记录集1.到下一条 ()
加入成员 (项目文本, 临时文本)
加入成员 (项目数值, 临时数值)
.计次循环尾 ()
写入列号 = { 0, 3, 6, 9, 12 }
.如果真 (取数组成员数 (项目文本) < 200)
.计次循环首 (200 - 取数组成员数 (项目文本), 控制行数)
加入成员 (项目文本, “---”)
加入成员 (项目数值, “”)
.计次循环尾 ()
.如果真结束
.计次循环首 (5, 列数变量)
.计次循环首 (40, 行数变量)
项目数 = 项目数 + 1
用户管理表格.置数据 (行数变量, 写入列号 [列数变量], 1, 项目文本 [项目数])
用户管理表格.置数据 (行数变量, 写入列号 [列数变量] + 1, 1, 项目数值 [项目数])
.计次循环尾 ()
.计次循环尾 ()
这个是我以前写的高级表格分列填充!你可以参考下!
|
|