专家坐堂-代码起不了作用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码起不了作用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130330)

--  作者：edisontsui
--  发布时间：2019/1/18 19:46:00
--  代码起不了作用

If r("制造产品号").startswith("K")
rt.Text = "原料: " & r("原材料")
Else
If r("型号").Contains("45100-42") Or r("型号").Contains("45100-43") Or r("型号").Contains("77100-003-01") Or r("型号").Contains("77100-004-01")
rt.Text = "原料: " & r("原材料") & " * 6.35mm"
elseIf r("型号").Contains("76400-100")
If r("型号").Contains("UL") Or r("型号").Contains("JQ")
rt.Text = "原料: " & r("原材料") & " * 3.20mm"
Else
rt.Text = "原料: " & r("原材料") & " * 3.00mm"
End If
elseIf r("型号").Contains("SP-76400-032")
rt.Text = "原料: " & r("原材料") & " * 3.20mm"
else
rt.Text = "原料: " & r("原材料")
End If
end if

以上代码执行起来的结果不符合要求，但是不知道如何修改？谢谢。

--  作者：有点蓝
--  发布时间：2019/1/18 21:11:00
--
首先完整代码贴出来。

其次想实现什么功能，得到什么效果？

--  作者：edisontsui
--  发布时间：2019/1/18 21:39:00
--

rt = New prt.RenderText

想实现的结果：

如果“制造产品号”字头有K，打印的内容就是："原料: " & r("原材料")

如果制造产品号字头没有K

那么，如果“型号”含 45100-42 或者 45100-43 或者 77100-003-01 或者 77100-004-01，打印的内容就是："原料: " & r("原材料") & " * 6.35mm"
如果“型号”含 76400-100
那么，如果“型号”含 UL 或者 JQ，那么，打印的内容就是："原料: " & r("原材料") & " * 3.20mm"
否则，打印的内容就是："原料: " & r("原材料") & " * 3.00mm"
如果 “型号”含 SP-76400-032 ，那么，打印的内容就是： "原料: " & r("原材料") & " * 3.20mm"
其他情况，打印的内容就是："原料: " & r("原材料")

--  作者：有点蓝
--  发布时间：2019/1/18 21:51:00
--
代码没有问题。截图说明一下具体哪个数据不符合要求。注意Contains是区分大小写的