想在表单中 “txt会员编号”中实现自动编号格式如: HY000001这样。应该怎么做？
我在表单的init加入一下代码
SELECT  readers
    
      
if EMPTY(会员编号) THEN 
          thisform.txt会员编号.value='HY000001'
          

      ELSE
          calculate max(会员编号) to Czdph     &&在数据表中查找出序号最大的记录
            Nzdph=val(right(Czdph,6))     
          Zdph='HY'+padl(alltrim(str(Nzdph+1)),6,'0')
          thisform.txt会员编号.value='Zdph'
        
        endif
      
thisform.txt条形码.value=''
thisform.txt条形码.value=''
thisform.txt会员级别.value=''
thisform.txt姓名.value=''
thisform.txt出生日期.value={}
thisform.txt性别.value=''
thisform.txt有效证件.value=''
thisform.txt证件号码.value=''
thisform.txt家庭住址.value=''
thisform.txt电话.value=''
thisform.edt备注.value=''

运行发现能找出原来数据表中的最大编号。但他不是写在txt会员编号”中，而是写在vfp屏幕中，这是怎么回事，是不是我写错了，请高手指教。