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

发布网友发布时间：2022-05-02 03:54

共1个回答

热心网友时间：2022-06-27 23:04

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.

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