Foxtable(狐表)用户栏目专家坐堂 → 求助帖:刚接触狐表,想做个实验分析记录管理,遇到了问题,求大神指点!


  共有4810人关注过本帖树形打印复制链接

主题:求助帖:刚接触狐表,想做个实验分析记录管理,遇到了问题,求大神指点!

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 14:30:00 [显示全部帖子]

 你使用的是 盗版或者是破解版的foxtable,即便帮你做来了效果,你也是打不开项目的。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 14:31:00 [显示全部帖子]

 试用期间,请去官网下载试用版使用。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 14:41:00 [显示全部帖子]

1、空白吸光、校正空白是什么东西?表里面没有;

 

2、引用父表数据

 

http://www.foxtable.com/help/topics/0106.htm

 

http://www.foxtable.com/help/topics/0025.htm

 

3、平行测定又是什么东西?

 

4、请去学习foxtable的编程 http://www.foxtable.com/help/topics/1592.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 18:00:00 [显示全部帖子]

 上传试用版的例子。

 

 再有,4、曲线截距和斜率的计算逻辑是什么


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 22:47:00 [显示全部帖子]

 Datacolchanged事件,代码

 

Select Case e.DataCol.Name
    Case "样品编号","样品类型","取样体积","前处理后体积","分取体积","稀释倍数","样品吸光度"
        Dim idx As Integer = Tables("分光法记录主表.分光法记录明细").FindRow(e.DataRow)
        If idx > -1 Then
            If idx = 0 Then
                e.DataTable.DataCols("样品吸光度").RaiseDataColChanged("_Identify <> " & e.DataRow("_Identify") & " And 项目编号 = '" & e.DataRow("项目编号") & "'")
            Else
                e.DataRow("校正吸光度") = e.DataRow("样品吸光度")-Tables("分光法记录主表.分光法记录明细").Rows(0)("样品吸光度")
                Dim pdr As DataRow = e.DataRow.GetParentRow("分光法记录主表")
                e.DataRow("样品浓度") = (e.DataRow("校正吸光度") - pdr("截距")) / (pdr("斜率") * e.DataRow("取样体积")) * iif(e.DataRow.isnull("稀释倍数"), 1, e.DataRow("稀释倍数"))
                If e.DataRow("样品类型") = "平行" Then
                    Dim fdr As DataRow = e.DataTable.Find("项目编号 = '" & e.DataRow("项目编号") & "' And 样品编号 = '" & e.DataRow("样品编号") & "'")
                    If fdr IsNot Nothing Then
                        e.DataRow("相对偏差") = Math.Abs(fdr("样品浓度") - e.DataRow("样品浓度")) / (fdr("样品浓度") + e.DataRow("样品浓度")) * 100
                    End If
                End If
            End If
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/31 9:21:00 [显示全部帖子]

以下是引用shilhoue在2015/3/31 7:21:00的发言:
我也不知道斜率和截距的计算逻辑,以前都是直接用EXCEL的函数。INTERCEPT()求截距,CORREL()求相关系数,SLOPE()求斜率

 

每一种,都必须替换成一种算法的。你可以百度一下它们的计算方式,然后转换成vb.net的代码。

 

 


 回到顶部