以文本方式查看主题

-  易表在线答疑  (http://www.egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://www.egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]病案明细表的[病案号]列怎样实现自动编号?  (http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=4144)

--  作者:郑颖
--  发布时间:2006/9/29 0:02:00
--  [求助]病案明细表的[病案号]列怎样实现自动编号?
[这个贴子最后由郑颖在 2006/09/29 01:08am 第 2 次编辑]

各位大虾!有谁能帮忙实现这个功能。那就是“病案明细表”中的病案号能根据[科室]列的内容进行自动编号。比如说科室列写“内科”那么病案号列就会自动生成A20060001……;如果说科室列写的是“外科”那么病案号列就会自动生成B20060001……而且没有重复编号。egd文件下载egd文件下载
密码是:Z125320
--  作者:smileboy
--  发布时间:2006/9/29 0:04:00
--  
发文件
--  作者:郑颖
--  发布时间:2006/9/29 0:16:00
--  
egd文件下载
--  作者:czy
--  发布时间:2006/9/29 0:24:00
--  
密码?
--  作者:smileboy
--  发布时间:2006/9/29 10:50:00
--  
内科:"A"+text(Year(today()))+Format(Row,"0000")
其他类似
--  作者:wjq1072
--  发布时间:2006/9/29 13:58:00
--  
http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=1098&show=0
--  作者:郑颖
--  发布时间:2006/9/29 22:31:00
--  
你好!这样的话,病案编号就不会出分类连续的号码了。我用手工录入了一些资料请你帮忙看看。egd文件下载
是按照这样的方式进行的。还啊!怎么我自己设置的复制公式不起作用呢?那就是把表一的内容复制到表二、表三、表四中。我的公式是:
AppendFor("病案明细表","[病案明细表!姓名],[病案明细表!性别],[病案明细表!年龄],[病案明细表!病案号],[病案明细表!入院日期],[病案明细表!出院日期],[病案明细表!住院天数],[病案明细表!家庭住址],[病案明细表!出院诊断],[病案明细表!转归],[病案明细表!经治医师],[病案明细表!病历等级],[病案明细表!是否合保]","[姓名],[性别],[年龄],[病案号],[入院日期],[出院日期],[住院天数],[家庭住址],[出院诊断],[转归],[经治医师],[病历等级],[是否合保]","[病案明细表!科室]"," = ","[科室]")
--  作者:czy
--  发布时间:2006/9/29 22:37:00
--  
第二个问题从函数语法来看应该这样才对:

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


--  作者:smileboy
--  发布时间:2006/9/29 22:37:00
--  
AppendFor("病案明细表","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","姓名,性别,年龄,病案号,入院日期,出院日期,住院天数,家庭住址,出院诊断,转归,经治医师,病历等级,是否合保","科室"," = ",[科室])
--  作者:czy
--  发布时间:2006/9/29 23:01:00
--  
楼主的编号用A、B、C来区分各科室,为何不用首字母来区分呢?如果用首字母来区分各科室并编号,公式可以这样:

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