以文本方式查看主题

-  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=108909)
--  作者：旭日生
--  发布时间：2017/10/31 19:05:00
--  请教一下：这段代码未起作用，是什么原因？

下面这段代码，未能起作用。没明白是什么原因？

If e.KeyCode = Keys.Enter  Then
    Dim txt7 As WinForm.TextBox = e.Form.Controls("TextBox7")
    Dim txt11 As WinForm.TextBox = e.Form.Controls("TextBox11")
    If  txt7.text Is Nothing  Then
        Dim r1 = e.Form.controls("Table1").Table.Current
        DataTables("案卷级目录").DeleteFor("[档号] Is Null")
    Else
       Return
    End If
End If

如果将上面这段代码中的”If  txt7.text Is Nothing  Then “这一行分别改为注一、注二，  则结果如下：

注一：改为" if txt7.text = " " then  “，整段代码未起作用。
注二：改为：if val(txt7.text) = 0 ，则能正确执行。我没懂是什么原因。请大神启发一下。
--  作者：有点甜
--  发布时间：2017/10/31 19:30:00
--  

If  txt7.text = nothing  Then

 

If  txt7.text = "" Then