修改记录.txt

某正在运行的大型医院源程序

2001.10.16 胡丹峰
把w_qry_practicbook中dw_query的ue_retrieve()中下面的这段代码
If IsNull(ds_QM.Object.QMSL[I]) Then 
	This.Object.QMSL[I] = 0
Else
	This.Object.QMSL[I] = ds_QM.Object.QMSL[I]
End If
改为：
lRow = ds_QM.Find("CPMX = " + String(lCPMX),0,lQZCount)
if lRow > 0 then
	If IsNull(ds_QM.Object.QMSL[lRow]) Then 
		This.Object.QMSL[I] = 0
	Else
		This.Object.QMSL[I] = ds_QM.Object.QMSL[lRow]
	end if
else
	this.object.QMSL[I] = 0
end if
注：需修改两处！


把w_qry_accountbook中dw_query的ue_retrieve()中下面的这段代码
If IsNull(ds_QM.Object.QMSL[I]) Then
	This.Object.QMSL[I] = 0
Else
	This.Object.QMSL[I] = ds_QM.Object.QMSL[I]
End If
If IsNull(ds_QM.Object.QMJE[I]) Then 
	This.Object.QMJE[I] = 0
Else
	This.Object.QMJE[I] = ds_QM.Object.QMJE[I]
End If
改为：
lRow = ds_QM.Find("CPMX = " + String(lCPMX),0,lQZCount)
if lRow > 0 then
	If IsNull(ds_QM.Object.QMSL[lRow]) Then 
		This.Object.QMSL[I] = 0
	Else
		This.Object.QMSL[I] = ds_QM.Object.QMSL[lRow]
	end if
	if isNull(ds_QM.object.QMJE[lRow]) then
		this.object.QMJE[I] = 0
	else
		this.object.QMJE[I] = ds_QM.object.QMJE[lRow]
	end if
else
	this.object.QMSL[I] = 0
end if
注：需修改两处！