Question

vfp中自动生成编号的表单init事件中输入

急求！在线等
vfp中自动生成编号的表单init事件中输入如下代码：
set exact on
set talk off
if not used ("出库信息")
use 出库信息.dbf in 0
set exact on
set talk off
if !used ('出库信息')
use 出库信息.dbf in 2
endif
use 出库信息.dbf
this.Text1.value=""
this.Text2.value=""
this.combo1.value=""
calculate max(出库编号) to maxbh &&在数据表中查找出序号最大的记录
ckbh=val(right(maxbh,3))
if ckbh=0 then
ckbh='S00001'
else
hpbh='S'+padl(alltrim(str(ckbh+1)),5,'0') &&生成自动编号
endif
this.Text1.value=ckbh
this.Text1.readonly=.t.
运行表单时会出现“文件正在运行”是什么问题？

Answer 1

SET EXACT ON
SET TALK OFF
IF NOT USED ("出库信息") && ←← 这个没有配对的 endif
USE 出库信息.DBF IN 0
SET EXACT ON && ←← 这行多余 前面已经 set 过了
SET TALK OFF && ←← 这行多余 前面已经 set 过了
IF !USED ('出库信息') && ←← 也许在这一行之前 应该插一个 endif 配合 IF NOT USED ("出库信息")
USE 出库信息.DBF IN 2 && ←← 这里应该 in 0 (in 0 的意思是 在新的空工作区打开）
ENDIF
USE 出库信息.DBF && ←← 这行多余 前面已经 USE 过了 问题应该是这一行出的 注意这一行
THIS.Text1.VALUE=""
THIS.Text2.VALUE=""
THIS.combo1.VALUE=""
CALCULATE MAX(出库编号) TO maxbh &&在数据表中查找出序号最大的记录
ckbh=VAL(RIGHT(maxbh,3))
IF ckbh=0 THEN
ckbh='S00001'
ELSE
hpbh='S'+PADL(ALLTRIM(STR(ckbh+1)),5,'0') &&生成自动编号
ENDIF
THIS.Text1.VALUE=ckbh
THIS.Text1.READONLY=.T.

** 你自己修改吧，你的思路是清析的 会做好的