thisform.pageframe1.page2.txtzj.value=病人基本信息表.医药费
update 病人基本信息表;
set   费用结算=医药费+预付挂号费   where alltrim(bid)==alltrim(病人基本信息表.病人id)
thisform.pageframe1.page1.refresh()
thisform.pageframe1.activepage=1
各位老师，我把原题做了一遍，但是到这儿的时候,程序说里面的bid 找不到。不知我理解的对不对，更新病人基本信息表，条件是bid和病人基本信息表里的病人id对应。但是原书前面没有bid 这个列啊。


sele 病人信息表
update 病人信息表;
set 医药费=zj.治疗进程=.t.,治疗医生=ysxm,;
药方=strl where alltrim(bid)=alltrim(病人基本信息表.病人id)
report form 药方 for bid=病人id preview

do form 医生诊断
thisform.release
医生诊断.pageframe1.page1.refresh()
医生诊断.pageframe1.activepage=1

这是前面的一个表单，里面也有一个bid.不知是什么意思。请大家帮忙分析一下。

BID应该是个全局变量，在主程序中定义

这是哪书上的？

谢谢版主和tlliqi热心帮忙.我用的是 数据库技术及其医学应用 2009年出的。我把教材的题照着做，每一个表单在关闭的时候如果有问题，就会跳出框来。是不是如果不把表单连编，单个运行的时候找不到，因为有的能过，有的不能过。还有书上有的括号没有，有的引号没有，害的我自己折腾了半天才弄过去。

路过，