Foxtable(狐表)用户栏目专家坐堂 → [求助]代码修改后有些问题,请教下


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

主题:[求助]代码修改后有些问题,请教下

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


加好友 发短信
等级:童狐 帖子:285 积分:2254 威望:0 精华:0 注册:2011/8/16 10:11:00
[求助]代码修改后有些问题,请教下  发帖心情 Post By:2017/2/22 16:55:00 [只看该作者]

当“表C”数据变化后到“BMI标准”的表内查找符合要求的“评分”“等级”数据写回到“表C”的列明“BMI等级”“BMI分值”里面去。

弄好了好久无解,谢谢大家


代码在
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170222165257.png
图片点击可在新窗口打开查看执行

代码内容

If e.DataCol.name = "年级" OrElse e.DataCol.name = "性别" OrElse  e.DataCol.name = "BMI值" Then
    If e.DataRow.isnull("年级") = False And e.DataRow.isnull("性别") = False And e.DataRow.isnull("BMI值") = False Then
        Dim dr As DataRow = DataTables("BMI标准").find("年级 ='" & e.DataRow("年级") & "' and 性别 ='" & e.DataRow("性别") & "' and 下限 >= " & e.DataRow("BMI值") & " and 上限 <= " & e.DataRow("BMI值"))
        If dr IsNot Nothing
            e.DataRow("BMI等级") =  dr("等级")
            e.DataRow("BMI分数") =  dr("分数")
        End If
    End If
End If

表结构:
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170222165415.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170222165441.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2017/2/22 16:57:10编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/22 17:11:00 [只看该作者]

现在有什么问题?代码没问题的吧?

 回到顶部