怎样给表添加空白记录？

[su389847531]

我在表单“药品明细单”上创建了“添加”“保存”命令按钮，为什么我点击命令按钮“保存”后，保存在“药品明细”表上的新记录是在空白处添加的，而“型号”表，“出厂日期”表，“所属类别”表上的新纪录替换了以前的记录，怎样才能使他们也是在空白处添加呢？
这是添加代码：
appen blank
*给药品明细单添加空白记录*
thisform.commandgroup1.command6.caption="保存"
thisform.refresh()
这是保存代码：
do case
case thisform.commandgroup1.command6.caption="退出"
use
thisform.release
case thisform.commandgroup1.command6.caption="保存"
replace 药品明细.型号 with thisform.型号.value
replace 药品明细.药品名称 with thisform.药品名称.value
replace 药品明细.类别 with thisform.类别.value
replace 药品明细.药品报价 with thisform.药品报价.value
replace 药品明细.日期 with thisform.日期.value
replace 药品明细.核查人员 with thisform.核查人员.value
replace 药品明细.成分备注 with thisform.成分备注.value
replace 型号.型号 with thisform.型号.value
replace 出厂日期.日期 with thisform.日期.value
replace 所属类别.类别 with thisform.类别.value
thisform.commandgroup1.command6.caption="退出"
endcase

[十豆三]

你的表单没有用Grid表来显示记录吗？如果没用就不用这个了。

[qd163]

您使用的append blank仅仅对药品明细表添加了一条空白记录，而没有对“型号”表，“出厂日期”表，“所属类别”表添加空白记录，当然在更新的时候会覆盖这三个表中指针所对应的记录了，所以应分别对四个表添加空白记录。

3楼说的一语中的。

[su389847531]

那请问3楼的，具体要怎样编程呢？程序要加在哪呢？

[WWWWA]

SELE 型号
APPE BLAN
REPL ....
SELE 出厂日期
APPE BLAN
REPL ....
SELE 所属类别
APPE BLAN
REPL ....
在保存代码中加入

[sodz]

就是Append Blank的问题

[cbl518]

这是保存代码：
do case
case thisform.commandgroup1.command6.caption="退出"
use
thisform.release
case thisform.commandgroup1.command6.caption="保存"
APPEND BLANK IN 药品明细
replace 药品明细.型号 with thisform.型号.value
replace 药品明细.药品名称 with thisform.药品名称.value
replace 药品明细.类别 with thisform.类别.value
replace 药品明细.药品报价 with thisform.药品报价.value
replace 药品明细.日期 with thisform.日期.value
replace 药品明细.核查人员 with thisform.核查人员.value
replace 药品明细.成分备注 with thisform.成分备注.value
replace 型号.型号 with thisform.型号.value
replace 出厂日期.日期 with thisform.日期.value
replace 所属类别.类别 with thisform.类别.value
thisform.commandgroup1.command6.caption="退出"
endcase

[cbl518]

*这是保存代码：
do case
case thisform.commandgroup1.command6.caption="退出"
use
thisform.release
case thisform.commandgroup1.command6.caption="保存"
APPEND BLANK IN 药品明细
WITH thisform
replace 药品明细.型号 with .型号.value;
,药品名称;with .药品名称.value;
,类别 with .类别.value;
,药品报价 with .药品报价.value;
,日期 with .日期.value;
,核查人员 with .核查人员.value;
,成分备注 with .成分备注.value IN 药品明细

*这三句对吗？
replace 型号.型号 with .型号.value
replace 出厂日期.日期 with .日期.value
replace 所属类别.类别 with .类别.value
.commandgroup1.command6.caption="退出"
ENDWITH
endcase

[wwwwb]

而“型号”表，“出厂日期”表，“所属类别”表上的新纪录替换了以前的记录
分别对三表APPE　BLAN，再REPLACE

[十豆三]

将保存代码中
Append Blank In 药品明细

去掉


因为你添加代码时已经执行了
Appen Blank

还有点完添加代码时，Grid的Enabled应该设为.F.,否则你点完添加按钮，又点了Grid表中任意一行，这样记录号发生了变化，将来替换就将旧记录替掉了。

[su389847531]

能说的详细点么？
“还有点完添加代码时，Grid的Enabled应该设为.F.,否则你点完添加按钮，又点了Grid表中任意一行，这样记录号发生了变化，将来替换就将旧记录替掉了。”中，Grid代表什么呢？这句代码加到哪呢？急急急

[十豆三]

在你添加代码：
appen blank
之后加一句：
Thisform.Grid1.Enabled=.F.

保存后再：

Thisform.Grid1.Enabled=.T.

[su389847531]

在这里GRID1是指什么呢？