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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码执行提示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33409)

--  作者：wsxdwh
--  发布时间：2013/5/17 14:44:00
--  代码执行提示错误

如题：

If e.Form.Controls("输入密码").value = e.Form.Controls("设密码").value Then
    For Each dr As Row In CurrentTable.Rows
       If dr("审核") =   False
          dr("审核") = True
     Else
        dr("审核") =   False
    End   If
    Next
    e.Form.Controls("输入密码").Visible = False
    e.Form.Controls("输入密码").value = ""

Else
    e.Form.Controls("输入密码").value = ""
    e.Form.Controls("输入密码").Visible = True
    MessageBox.Show ("密码错误,重新输入!")
End   If

此主题相关图片如下：qq图片20130517144212.jpg

--  作者：Bin
--  发布时间：2013/5/17 15:00:00
--
If e.Form.Controls("输入密码").value = e.Form.Controls("设密码").value Then 其中一个文本框有空值的缘故吧

--  作者：lsy
--  发布时间：2013/5/17 15:01:00
--

e.Form.Controls("输入密码").Visible = False
e.Form.Controls("输入密码").value = ""

e.Form.Controls("输入密码").value = ""

e.Form.Controls("输入密码").Visible = False

--  作者：wsxdwh
--  发布时间：2013/5/17 15:28:00
--

两个都不是。

图片中审核列只有部分行的审核为true, 而且是当前行之前的。

--  作者：Bin
--  发布时间：2013/5/17 15:29:00
--
例子发出来吧.