主题：[求助]病案明细表的[病案号]列怎样实现自动编号？

[这个贴子最后由郑颖在 2006/09/29 01:08am 第 2 次编辑]

各位大虾！有谁能帮忙实现这个功能。那就是“病案明细表”中的病案号能根据[科室]列的内容进行自动编号。比如说科室列写“内科”那么病案号列就会自动生成A20060001……；如果说科室列写的是“外科”那么病案号列就会自动生成B20060001……而且没有重复编号。egd文件下载egd文件下载
密码是：Z125320

发文件

egd文件下载

密码？

内科："A"+text(Year(today()))+Format(Row,"0000")
其他类似

http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=1098&show=0

你好！这样的话，病案编号就不会出分类连续的号码了。我用手工录入了一些资料请你帮忙看看。egd文件下载
是按照这样的方式进行的。还啊！怎么我自己设置的复制公式不起作用呢？那就是把表一的内容复制到表二、表三、表四中。我的公式是：
AppendFor("病案明细表","[病案明细表!姓名],[病案明细表!性别],[病案明细表!年龄],[病案明细表!病案号],[病案明细表!入院日期],[病案明细表!出院日期],[病案明细表!住院天数],[病案明细表!家庭住址],[病案明细表!出院诊断],[病案明细表!转归],[病案明细表!经治医师],[病案明细表!病历等级],[病案明细表!是否合保]","[姓名],[性别],[年龄],[病案号],[入院日期],[出院日期],[住院天数],[家庭住址],[出院诊断],[转归],[经治医师],[病历等级],[是否合保]","[病案明细表!科室]"," = ","[科室]")

第二个问题从函数语法来看应该这样才对：

AppendFor("病案明细表","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","科室","=",[科室])

AppendFor("病案明细表","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","科室"," = ",[科室])

楼主的编号用A、B、C来区分各科室，为何不用首字母来区分呢？如果用首字母来区分各科室并编号，公式可以这样：

Left(GetPY([科室]),1)+text(Year([入院日期]))+right("000"+text(CountFor(Grid,"科室","=",[科室],1,Row)),4)