以文本方式查看主题

-  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的值不为空的意思