公式转换问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 公式转换问题？

共有13947人关注过本帖树形打印复制链接主题：公式转换问题？

jjyou

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：18 积分：312 威望：0 精华：0 注册：2010/3/6 17:00:00

公式转换问题？ 发帖心情

Post By：2010/3/25 14:02:00 [只看该作者]

这个公式怎么转换？

易表中有下列公式，请高手指点以下，在FOXTABLE中如何转换？
if([地点] ="新八",[Q混],
if([地点] ="新九",[Q混],
if([地点] ="新一",Round(Sqrt((760-([负压]/0.133)) * [压差]/(273+[温度])) * 0.621 * [孔板系数] * [浓度校正系数],2),
if([地点] ="新二",Round(Sqrt((760-([负压])) * [压差]/(273+[温度])) * 0.621 * [孔板系数] * [浓度校正系数],2),
Round(Sqrt((760+Quotient((-[标高]),12)-[负压]) * [压差]/(273+[温度])) * 0.621 * [孔板系数] * [浓度校正系数],2)))))

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表.table

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/3/25 15:02:00 [只看该作者]

你这段公式的结果是放在何处的？或是哪列？

jjyou

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：18 积分：312 威望：0 精华：0 注册：2010/3/6 17:00:00

Post By：2010/3/25 15:39:00 [只看该作者]

结果放在[Q混]列

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：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