.版本 2 .支持库 eGrid .子程序 读取员工 .参数 条件, 文本型, 可空 .局部变量 sql, 文本型 .局部变量 记录集 高级表格1.行数 ＝ 1 .如果 (是否为空 (条件)) sql ＝ “select ID,编号,姓名,员工类别,部门名称 from 员工列表 where 状态='在职' order by ID” .否则 sql ＝ “select ID,编号,姓名,员工类别,部门名称 from 员工列表 where 状态='在职' ” ＋ 条件 ＋ “ order by ID” .如果结束 记录集 ＝ _启动窗口.外部数据库.查询 (sql) _启动窗口.外部数据库.到首记录 (记录集) .判断循环首 (取反 (_启动窗口.外部数据库.尾记录后 (记录集))) 高级表格1.插入行 (, ) 高级表格1.置数据 (高级表格1.行数 － 1, 0, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 1))) 高级表格1.置数据 (高级表格1.行数 － 1, 1, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 2))) 高级表格1.置数据 (高级表格1.行数 － 1, 2, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 3))) 高级表格1.置数据 (高级表格1.行数 － 1, 3, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 4))) 高级表格1.置数据 (高级表格1.行数 － 1, 4, 1, 到文本 (_启动窗口.外部数据库.读 (记录集, 5))) _启动窗口.外部数据库.到后一记录 (记录集) .判断循环尾 () _启动窗口.外部数据库.关闭记录集 (记录集) 高级表格1.置只读方式 (0, 0, 高级表格1.行数 － 1, 高级表格1.列数 － 1, 真)