以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开窗口代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94588)
--  作者：longyanlin
--  发布时间：2016/12/27 15:49:00
--  打开窗口代码问题

Dim str As String = e.Form.Controls("ComboBox1").Text
    If str IsNot Nothing Then
    If str = "生产" Then
  Forms("添加成品生产入库").Open
    Else
    Forms("添加成品外购入库").Open
    End If
       End If
   以上代码怎么不能做到当str=其它条件的时候，打开“添加成品外购入库”窗口啊，只能打开str=“生产”时的“添加成品生产入库”

[此贴子已经被作者于2016/12/27 15:58:37编辑过]
--  作者：wyz20130512
--  发布时间：2016/12/27 15:55:00
--  
1.多了一个End If

2.将第二个Open改为Show试试。
--  作者：有点色
--  发布时间：2016/12/27 15:59:00
--  

Dim str As String = e.Form.Controls("ComboBox1").Text

If str = "生产" Then
    Forms("添加成品生产入库").Open
Else
    Forms("添加成品外购入库").Open
End If
--  作者：longyanlin
--  发布时间：2016/12/27 16:04:00
--  

谢谢了，可以打开了，不过又有了个问题，就是str是空值的时候也会打开第二个窗口，怎么弄呢？
--  作者：有点色
--  发布时间：2016/12/27 16:08:00
--  

Dim str As String = e.Form.Controls("ComboBox1").Text

If str = "生产" Then
    Forms("添加成品生产入库").Open
ElseIf str > "" Then
    Forms("添加成品外购入库").Open
End If
--  作者：longyanlin
--  发布时间：2016/12/27 16:38:00
--  

非常感谢，就是代码有点看不懂，呵呵

ElseIf str > "" Then
--  作者：有点蓝
--  发布时间：2016/12/27 20:21:00
--  
str > "" 就相当于判断str的值不为空的意思