自动编号怎么不能用,那里错了,大家帮忙看下.
if this.caption='添加(\<A)'
calculate max(编号) to Czdph &&在数据表中查找出序号最大的记录
Nzdph=val(right(Czdph,5)) &&取出数字部分
if Nzdph=0 then &&判断数字部分是否为0
Zdph='YG00001'
else
Zdph='YG'+padl(alltrim(str(Nzdph+1)),5,'0') &&生成自动票号
endif
*清空格式化文本控件的内容
thisform.Txt编号.value=Zdph
thisform.Txt书名.value=''
thisform.Txt出版日期.value=''
thisform.Txt单价.value=''
thisform.Txt出版社.value=''
thisform.Txt作者.value=''
thisform.Txt备注.value=''

*使文本控件有效
thisform.Txt编号.enabled=.t.
thisform.Txt书名.enabled=.t.
thisform.Txt出版日期.enabled=.t.
thisform.Txt单价.enabled=.t.
thisform.Txt出版社.enabled=.t.
thisform.Txt作者.enabled=.t.
thisform.Txt备注.enabled=.t.
else
INSERT INTO 图书登记表;
(编号,书名,出版日期,单价,出版社,作者,备注) ;
VALUES(alltrim(thisform.txt编号.value),alltrim(thisform.txt书名.value),alltrim(thisform.txt作者.value),;
alltrim(thisform.txt单价.value),alltrim(thisform.txt出版社.value),alltrim(thisform.txt出版日期.value),;
alltrim(thisform.txt备注.value))
this.caption='添加(\<C)'
*使文本控件内容都有效
thisform.Txt编号.enabled=.f.
thisform.Txt书名.enabled=.f.
thisform.Txt出版日期.enabled=.f.
thisform.Txt单价.enabled=.f.
thisform.Txt出版社.enabled=.f.
thisform.txt作者.enabled=.f.
thisform.txt备注.enabled=.f.
endif
thisform.refresh
=messagebox('操作完成，该书已纪录入库！',0+64+0,'完成')

calculate max(编号) to Czdph &&在数据表中查找出序号最大的记录

只是对序号最大的记录进行编号

在您的表单中，if this.caption='添加(\<A)'的条件根本就不存在，所以自动编号的代码不能运行。
另外thisform.Txt出版日期.value=''是不是有点问题，常理上说，应该是日期型的。

[此贴子已经被作者于2007-6-15 23:19:18编辑过]

烦死人了,不做这了个.浪费大家感情了!太郁闷不会做就是郁闷呀!你们的意见我看看回来有时间了在修改试试

将楼主的程序做了比较大的修改:(1)数据库修改为自由表；(2)命令按钮修改为命令按钮组；(3)自动编号成为自动获取最低可用号码；(4)增加若干功能。

表单如下：