- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问下这句代码错在哪里呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131174)
-- 发布时间：2019/2/19 14:08:00
-- 请问下这句代码错在哪里呢？
For Each r As Row In Tables("基本信息").rows
If r.isnull("年龄") = False And r.isnull("性别") = False And r.isnull("体重指数") = False Then
Dim dr As DataRow = DataTables("体重指数标准").find("性别 =\'" & r("性别") & "\' and "年龄 =\'" & r("年龄") & "\' and 数值下限 <= " & r("体重指数") & " and 数值上限 > " & r("体重指数") )
If dr IsNot Nothing
r("体重指数评价") = dr("评价")
End If
End If
Next
-- 发布时间：2019/2/19 14:14:00
--
表结构
此主题相关图片如下：微信截图_20190219141355.jpg
-- 发布时间：2019/2/19 14:52:00
--
Dim dr As DataRow = DataTables("体重指数标准").find("性别 =\'" & r("性别") & "\' and 年龄 =" & r("年龄") & " and 数值下限 <= " & r("体重指数") & " and 数值上限 > " & r("体重指数") )
-- 发布时间：2019/2/19 15:52:00
--
太谢谢版主了，我太粗心了。。。
-- 发布时间：2019/2/19 16:23:00
--
请问下您，为何我修改了下代码，结果不出来呢？
For Each r As Row In Tables("基本信息").rows
If r.isnull("年龄") = False And r.isnull("体重指数评价") = False And r.isnull("体重指数代码") = False = False Then
Dim dr As DataRow = DataTables("总评价表").find("年龄 =\'" & r("年龄") & "\' and 项目 =" & r("体重指数代码") & "\' and 评价 =" & r("体重指数评价") )
If dr IsNot Nothing
r("体重指数建议") = dr("处方")
End If
End If
Next
-- 发布时间：2019/2/19 16:24:00
--
表结构如下
此主题相关图片如下：3.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：1.jpg
[此贴子已经被作者于2019/2/19 16:24:27编辑过]
-- 发布时间：2019/2/19 16:45:00
--
For Each r As Row In Tables("基本信息").rows
If r.isnull("年龄") = False And r.isnull("体重指数评价") = False And r.isnull("体重指数代码") = False Then
Dim dr As DataRow = DataTables("总评价表").find("年龄 =\'" & r("年龄") & "\' and 项目 =\'" & r("体重指数代码") & "\' and 评价 =\'" & r("体重指数评价") &"\'" )
If dr IsNot Nothing
r("体重指数建议") = dr("处方")
End If
End If
Next
-- 发布时间：2019/2/19 16:57:00
--
恩恩，谢谢版主，我再好好研究下帮助文档