以文本方式查看主题

-  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=191822)

--  作者:18310172639
--  发布时间:2024/5/10 10:44:00
--  求助:关于包含判断
窗口1 单击yy控件事件
Dim mx As Winform.ComboBox = e.Form.Controls("maixiang")
Dim yy As Winform.ComboBox = e.Form.Controls("yinyang")
 If mx.Value IsNot Nothing and mx.value.包含:左,且包含:有力及宽大,then
yy.value ="阴盛"
 若不符合:
If mx.Value IsNot Nothing and mx.value.包含:左,且包含:正常,then
yy.value ="阴平"

老师,上面的汉字换成语言该如何写


--  作者:有点蓝
--  发布时间:2024/5/10 10:55:00
--  
If mx.Value IsNot Nothing andalso mx.value.Contains("左") andalso  mx.value.Contains("有力及宽大") then http://www.foxtable.com/webhelp/topics/1338.htm
yy.value ="阴盛"
elseIf mx.Value IsNot Nothing and mx.value.包含:左,且包含:正常,then http://www.foxtable.com/webhelp/topics/0223.htm
yy.value ="阴平"

--  作者:cd_tdh
--  发布时间:2024/5/10 10:55:00
--  
http://www.foxtable.com/webhelp/topics/0102.htm
--  作者:18310172639
--  发布时间:2024/5/10 11:06:00
--  感谢老师耐心解答
感谢老师耐心解答,问题解决了