 加好友  发短信
等级：超级版主
帖子：4109
积分：23338
威望：0
精华：21
注册：2008/9/1 20:07:00
|
 Post By：2010/3/25 16:14:00 [显示全部帖子]
表事件：
DataColChanged 中 如果此列没有刷新，将光标放在负压等公式中用到的相关列中，点重置列就能刷新
if e.DataRow("地点") ="新八" Or e.DataRow("地点") ="新九" Then
e.DataRow("Q混")=e.DataRow("Q混")
Else If e.DataRow("地点") ="新一"
e.DataRow("Q混")= Math.Round(Math.Sqrt((760-(e.DataRow("负压")/0.133)) * e.DataRow("压差")/(273 + e.DataRow("温度"))) * 0.621 * e.DataRow("孔板系数") * e.DataRow("浓度校正系数"),2)
Else If e.DataRow("地点") ="新二"
e.DataRow("Q混")=Math.Round(Math.Sqrt((760-(e.DataRow("负压"))) * e.DataRow("压差")/(273+ e.DataRow("温度"))) * 0.621 * e.DataRow("孔板系数") * e.DataRow("浓度校正系数"),2)
Else
e.DataRow("Q混")=Math.Round(Math.Sqrt((760+(- e.DataRow("标高")\12)- e.DataRow("负压")) *e.DataRow("压差")/(273+e.DataRow("温度"))) * 0.621 * e.DataRow("孔板系数") * e.DataRow("浓度校正系数"),2)
End If
|
|
