VB关于append

文件方式，有

Append、Binary、Input、Output、或

Random

方式。如果未指定方式，则以

Random

访问方式打开文雀亏件。

Append是以追加的方式打开，每源庆次写入的都追加在文件最后，所以会出现你那种现象。其他都是覆盖方式。

Binary是以二顷裂神进制方式打开，每个字符都以二进制形式读出，写入。

Input、Output是以文本方式打开，一个读，一个写。

Random

是随机方式。

----因此你应该把追加方式改为覆盖方式，且是写入，所以改为Output

VFP的APPEND命令是添加一个或多个新记录的表的末尾。

APPEND命令简迅袭

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

句法：

APPEND [BLANK]

[IN nWorkArea | cTableAlias]

[NOMENU]

参数：

BLANK

添加一个空白记录到当前表的末尾。当您发出APPEND BLANK VisualFoxPro不打开编辑窗口。您可以编辑与浏览，更改或编辑新的记录。

IN nWorkArea

指定表到一个新的记录被追加的工作区。

IN cTableAlias

指定表到一个新的记录被追加的别名。

如果省略nWorkArea和cTableAlias，一个新的记录追加到表中的当前工作区。如果发出追加，一个空白的记录添加到表你nWorkArea或cTableAlias和表指定的自动选择。如果发出APPEND BLANK，一个空白的记录添加到表你nWorkArea或cTableAlias和表指定没有被选中。

NOMENU

指定表格菜单标题被从系统菜拦兄单栏中删除，防止改变编辑窗昌和口的格式。

APPEND命令示例：

下面的示例使用APPEND BLANK创建一个表与10条记录包含随机值，然后在表中显示的最大值和最小值。

CLOSE DATABASES

CREATE TABLE Random (cValue N(3))

FOR nItem = 1 TO 10  && Append 10 records

   APPEND BLANK

   REPLACE cValue WITH 1 + 100 * RAND( )  && Insert random values

ENDFOR

CLEAR

LIST  && Display the values

gnMaximum = 1  && Initialize minimum value

gnMinimum = 100  && Initialize maximum value

SCAN 

   gnMinimum = MIN(gnMinimum, cValue)

   gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? 'The minimum value is: ', gnMinimum  && Display minimum value

? 'The maximum value is: ', gnMaximum  && Display maximum value

---