怎么追加VFP的表记录？

命令法：APPEND

*** 作法：追加一条记录使用菜单“表－追加新记录” ，

追加多条记录使用菜单“显示－誉陪追加记录”。

VFP：

Visual FoxPro ，是Microsoft公司从Fox公司的FoxBase数据库软件经过数次改良，并且移植到Windows之后，得来的应用程序开发软件，主要羡虚李用于开发数据管理与运算等方面的软件。

VFP是Microsoft公司推出的最新可视化数据库管理系统平台，是功能特别强大的32位数据库管理系统。

它提供了功兄迟能完备的工具、极其友好的用户界面、简单的数据存取方式、独一无二的跨平台技术，交肯有良好的兼容性、真正的可编译性和较强的安全性，是目前最快捷、最实用的数据库管理系统软件之一。

曲线救国

先确定需要在哪条记录之前追加一条记录

bl_jlh=recno()-1

然后使用：

ALTER table zg.dbf（数据库要完整路径名） add column 序号 N(8)" &&增加一个存放顺雹消模序号的字段

repl all 序号 with recno() &&给全部顺序号赋值

appe blank （末尾添加一条新纪录）

repl 职工号 with 'B051',部门 with '销售部',姓名 with '刘东',电话 with '86543456 ',地址 with '河北',年龄 with 21,兼职 with ' .F.,工作时间 with ctod('1999.09.10'),备注 with '',序号 with bl_jlh

appe blank （末尾添加一条新纪录）

repl 职工号 with 'C054',部门 with '技术部',姓名桥冲 with '孙平',电话 with '12376432',地址 with '河北',年龄 with 27,兼职 with ' .T.,工作时间 with ctod('1993.10.11'),备注 with '先进个人,序号 with bl_jlh

sort to c:\lssjk.dbf on 序号 （按序号排序）

zap （清空数据库）

appe from c:\lssjk.dbf （将排序后的数据库导入）

ALTER table zg.dbf（数据库要完整路径名）drop column 序号 （将“序号”字段删除）

dele file c:\lssjk.dbf （删除临时文件）

go bl_jlh+1 （返回到当前源缓记录号）

在表的末尾添加一个或多个新记录。

APPEND [BLANK] [IN nWorkArea | cTableAlias] [NOMENU]

参数

BLANK

在当前表的末尾添加一个空记录。Visual FoxPro 在发出 APPEND BLANK 命令时并不打开编辑窗口。

可以使用 BROWSE、CHANGE 或 EDIT 命令编辑新记录。

IN nWorkArea

指定要添加新记录的表所在的工作区。

IN cTableAlias

指定要添加新记录的表的别名。

如果省略 nWorkArea 和 cTableAlias，新记录迹庆将添加到当前选定工作区的表中。如果发出 APPEND 命令，空记录将添加到由 nWorkArea 或 cTableAlias 指定的工作区的表中，并且自动选定该表；如果发出 APPEND BLANK 命令，空记录帆扮将添加到指定的 nWorkarea 或 cTableAlias 工作区的表中，但不选定表。

NOMENU

指定将表菜单标题从系统菜单栏中删除，以避免改变编辑窗口的格式。

备注

当发出 APPEND 或 APPEND BLANK 命令，并且没有在当前选定工作区中打开表时，将显示一个打开对话框，您可以在对话框中选择需要添加记录的表。

APPEND 命令打开一个编辑窗口，您可以在其中输入一个或多个新记录。增加新记录后，Visual FoxPro 将自动修改打开的所有索引。

示例

以下示例用 append blank 命令创建一个有 10 条记录的表，记录中包含有随机值，然后显示表的最大值和最小值。

CLOSE DATABASES

CREATE TABLE Random (cValue N(3))

FOR nItem = 1 TO 10 &&添加 10 条记录

APPEND BLANK

REPLACE cValue WITH 1 + 100 * RAND() &&插入随机值

ENDFOR

CLEAR

LIST &&显示态州灶值

gnMaximum = 1 &&初始的最小值

gnMinimum = 100 &&初始的最大值

SCAN

gnMinimum = MIN(gnMinimum, cValue)

gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? '最小值是: ', gnMinimum &&显示最小值

? '最大值是: ', gnMaximum &&显示最大值

---