- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码修改后有些问题，请教下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96525)
-- 发布时间：2017/2/22 16:55:00
-- [求助]代码修改后有些问题，请教下
当“表C”数据变化后到“BMI标准”的表内查找符合要求的“评分”“等级”数据写回到“表C”的列明“BMI等级”“BMI分值”里面去。
弄好了好久无解，谢谢大家
代码在
此主题相关图片如下：qq截图20170222165257.png
执行
此主题相关图片如下：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
此主题相关图片如下：qq截图20170222165415.png此主题相关图片如下：qq截图20170222165441.png[此贴子已经被作者于2017/2/22 16:57:10编辑过]
-- 发布时间：2017/2/22 17:11:00
--
现在有什么问题？代码没问题的吧？