.版本 2 .支持库 eDB .支持库 iext .子程序 比较 .局部变量 文本1, 文本型 .局部变量 文本2, 文本型 .局部变量 n, 整数型 .局部变量 x, 整数型 .局部变量 x1, 整数型 .局部变量 s, 文本型, , "0" .局部变量 行, 整数型 .局部变量 m, 整数型 .局部变量 行号, 文本型 .局部变量 文件名, 文本型 .局部变量 文件名1, 文本型 .如果真 (通用对话框1.打开 ()) 文件名 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)) 数据库连接1.连接 (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假)) ＋ “;Extended Properties='text;HDR=NO;FMT=Delimited'”) 记录集1.置连接 (数据库连接1) 记录集1.打开 (“Select * FROM ” ＋ 文件名, 1, ) .如果真结束 .如果真 (通用对话框2.打开 ()) 数据库连接2.连接 (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取文本左边 (通用对话框2.文件名, 倒找文本 (通用对话框2.文件名, “\”, , 假)) ＋ “;Extended Properties='text;HDR=NO;FMT=Delimited'”) 记录集2.置连接 (数据库连接2) 文件名1 ＝ 取文本右边 (通用对话框2.文件名, 取文本长度 (通用对话框2.文件名) － 倒找文本 (通用对话框2.文件名, “\”, , 假)) 记录集2.打开 (“Select * FROM ” ＋ 文件名1, 1) .如果真结束 .判断开始 (记录集1.记录数量 － 记录集2.记录数量 ≥ 0) n ＝ 记录集1.记录数量 .默认 n ＝ 记录集2.记录数量 .判断结束 超级列表框1.全部删除 () 超级列表框2.全部删除 () 清除数组 (s) .计次循环首 (n, 行) 记录集1.读文本 (0, 文本1) 记录集2.读文本 (0, 文本2) x ＝ 超级列表框1.插入表项 (行, , , , , ) x1 ＝ 超级列表框2.插入表项 (行, , , , , ) 超级列表框1.置标题 (x, 0, 到文本 (行 － 1)) 超级列表框1.置标题 (x, 1, 文本1) 超级列表框2.置标题 (x1, 0, 到文本 (行 － 1)) 超级列表框2.置标题 (x1, 1, 文本2) .判断开始 (文本1 ≠ 文本2) 置行列颜色 (_启动窗口, 超级列表框1, 行 － 1, 1, #红色, ) 置行列颜色 (_启动窗口, 超级列表框2, 行 － 1, 1, #红色, ) 加入成员 (s, 到文本 (行 － 1) ＋ “、”) .默认 .判断结束 记录集1.到下一条 () 记录集2.到下一条 () .计次循环尾 () 记录集1.关闭 () 数据库连接1.关闭 () .计次循环首 (取数组成员数 (s), m) 行号 ＝ 行号 ＋ s [m] .计次循环尾 () 编辑框1.内容 ＝ “比较两表结果错误行有” ＋ 到文本 (取数组成员数 (s)) ＋ “行。分别为：” ＋ 行号 ＋ “行”