主题：药品价格更新

老师您好，我有一个购药管理文件，怎样使《基本药品代码表》里“购入单价”的更新为最新价（在购药明细表最后录入的购入单价）请老师给设置一下。谢谢

我简化了表再发一个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:购药管理.egd

要更新容易，但要看在什么时候更新。因为单价肯定是要在其他地方用到的，但什么时候用原来的单价，什么时候用更新后的单价，而单纯在“基本药物代码表”中更新是不能处理这个问题的。

我的这个表里还有《处方管理》软件，录入处方要提取药品单价，所以要用最近购进的药品单价（最新单价，处方表与基本药物代码表关联，提取其中的购入单价。）所以请老师解决的问题就是起这个作用。谢谢

findtext("购药明细表","购入单价","药品代码"," = ",[药品代码], - 1)

谢谢老师指导

再次谢谢老师的指导，再请教一个问题，上边的问题解决了，但每次录入购入药品后就需要重算表才能刷新购入单价，由于数据较多刷新速度特慢，用什么方法来提高刷新速度，或自动刷新。谢谢

应该采用一个表做每次药物购入的记录，另一个表则收集每次购入的记录，而后面这个表是不需要进行运算的，第一个表的运算量很小。要考虑文件与表结构的合理性。

就你提的问题，本人觉得一个文件中设置3个表：“采购录入”、“采购明细”、“药物表”。第一个表就相当于一个录入窗口，每采购一次就录入一次；录完后用按钮公式做两件事：一是将本次录入的采购记录拷贝到第二个表中，二是将第三个表中已有且与第一个表中单价不同的单价进行修改，并将第三个表中没有出现过的药物（包括剂型、单位、规格等）同时拷贝到第三个表中。这样，所有药物采购都归集到了第二个表，第三个表随时保持了药物的最新单价。楼主可试着做做。

购药明细表，购入单价列，操作公式：

RecalcColFor("基本药物代码表","购入单价","药品代码"," = ",[药品代码])