大神看下我哪错了

peng3726 · 发表于 2013-6-30 20:41:19

[e]
.版本 2.程序集窗口程序集1.子程序 _按钮_创建数据库_被单击子程序_建数据库 ().子程序子程序_建数据库.局部变量字段表, 字段信息, , "3".如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ #人事档案) ＝假) .如果真 (信息框 (“人事档案不存在，是否创建数据库！”, #询问图标＋ #是否钮, ) ＝ #否钮) 信息框 (“系统将会退出！”, #错误图标, ) 结束 () .如果真结束字段表 [1].名称＝ #姓名字段表 [1].类型＝ #文本型字段表 [1].最大文本长度＝ 8 字段表 [2].名称＝ #年龄字段表 [2].类型＝ #文本型字段表 [2].最大文本长度＝ 8 字段表 [3].名称＝ #工资字段表 [3].类型＝ #文本型字段表 [3].最大文本长度＝ 8 .如果真 (创建 (取运行目录 () ＋ “\” ＋ #人事档案, 字段表) ＝假) 信息框 (“创建人事档案数据库失败！”, #错误图标, “错误”) 结束 () .如果真结束信息框 (#左引号＋ #人事档案＋ #右引号＋ “数据库创建成功！”, #信息图标, ).如果真结束.子程序 _按钮_显示全部数据_被单击.局部变量计次, 整数型子程序_添加表头 ()到首记录 ().计次循环首 (取记录数 (), 计次) 子程序_读取当前记录 () 跳过 ().计次循环尾 ().子程序子程序_添加表头数据源1.删除行 (1, 数据源1.取行数 ()).如果真 (数据源1.插入行 (1, 1) ＝假) 返回 ().如果真结束数据源1.置文本 (1, 1, “姓名”)数据源1.置文本 (1, 2, “年龄”)数据源1.置文本 (1, 3, “工资”)数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中)数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32).子程序子程序_读取当前记录数据源1.添加行 (1)数据源1.置文本 (数据源1.取行数 (), 1, 读 (#姓名))数据源1.置文本 (数据源1.取行数 (), 2, 读 (#年龄))数据源1.置文本 (数据源1.取行数 (), 3, 读 (#工资))数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中)数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32).子程序 _按钮_打开数据库_被单击.如果 (打开 (#人事档案, “人事档案”, , , , , ) ＝假) 信息框 (“人事档案数据库打开失败！”, #错误图标, “错误”) 结束 ().否则信息框 (“人事档案数据库打开成功！”, #信息图标, “成功”).如果结束.子程序 _按钮_添加信息_被单击载入 (窗口_添加, , 真)
[/e]

大神帮看下错在哪？