A P P E N D 命 令

A P P E N D 命 令 - 图1在表的末尾添加一个或多个新记录

语 法

APPEND [BLANK]

[IN n W orkArea | cTableAlias ] [NOMENU]

参 数 描 述

BLANK

A P P E N D 命 令 - 图2在当前表的末尾添加一个空记录

A P P E N D 命 令 - 图3Visual FoxPro 在发出 APPEND BLANK 命令时并不打开编辑窗口 可以使用

A P P E N D 命 令 - 图4A P P E N D 命 令 - 图5BROWSE CHANGE 或 EDIT 命令编辑新记录

IN n W orkArea

A P P E N D 命 令 - 图6指 定 要 添 加 新 记 录 的 表 所 在 的 工 作 区

IN cTableAlias

A P P E N D 命 令 - 图7指定要添加新记录的表的别名

A P P E N D 命 令 - 图8A P P E N D 命 令 - 图9A P P E N D 命 令 - 图10A P P E N D 命 令 - 图11A P P E N D 命 令 - 图12A P P E N D 命 令 - 图13A P P E N D 命 令 - 图14A P P E N D 命 令 - 图15如果省略 nWorkAreacTableAlias 新记录将添加到当前选定工作区的表中 如果发出 APPEND 命令 空记录将添加到由 nWorkAreacTableAlias 指定的工作区的表中并且自动选定该表 如果发出 APPEND BLANK 命令 空记录将添加到指定的nWorkareacTableAlias 工作区的表中 但不选定表

N O M E N U

A P P E N D 命 令 - 图16A P P E N D 命 令 - 图17A P P E N D 命 令 - 图18A P P E N D 命 令 - 图19此 参 数 指 定 将 表 菜 单 标 题 从 系 统 菜 单 栏 中 删 除 以 避 免 改 变 编 辑 窗 口 的格 式

说 明

A P P E N D 命 令 - 图20A P P E N D 命 令 - 图21A P P E N D 命 令 - 图22A P P E N D 命 令 - 图23当发出 APPEND 或 APPEND BLANK 命令 并且没有在当前选定工作区中打开表时将显示一个打开对话框 您可以在对话框中选择需要添加记录的表

A P P E N D 命 令 - 图24A P P E N D 命 令 - 图25A P P E N D 命 令 - 图26A P P E N D 命 令 - 图27APPEND 命令打开一个编辑窗口 您可以在其中输入一个或多个新记录 增加新记录后 Visual FoxPro 将自动修改打开的所有索引

示 例

A P P E N D 命 令 - 图28A P P E N D 命 令 - 图29A P P E N D 命 令 - 图30下面的示例用 APPNED BLANK 创建了一个包含了随机值 有 10 个记录的表 然 后 显示了表中的最大值与最小值

CLOSE DATABASES

A P P E N D 命 令 - 图31A P P E N D 命 令 - 图32A P P E N D 命 令 - 图33A P P E N D 命 令 - 图34A P P E N D 命 令 - 图35A P P E N D 命 令 - 图36A P P E N D 命 令 - 图37A P P E N D 命 令 - 图38A P P E N D 命 令 - 图39CREATE TABLE Random (cValue N(3)) FOR nItem = 1 TO 10 && 增加 10 个记录

A P P E N D 命 令 - 图40A P P E N D 命 令 - 图41REPLACE cValue WITH 1 + 100 * RAND && 插入随机值

ENDFOR

CLEAR

LIST && 显示这些值

gnMaximum = 1 && 初始化最小值gnMinimum = 100 && 初始化最大值SCAN

gnMinimum = MIN(gnMinimum, cValue) gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? ‘The minimum value is: ‘, gnMinimum && 显示最小值

? ‘The maximum value is: ‘, gnMaximum && 显示最大值

请 参 阅

APPEND FROM ARRAY , BROWSE , C H A N G E , EDIT , INSERT-SQL , REPLACE