以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个逻辑列的奇怪问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99145)
--  作者：happyft
--  发布时间：2017/4/13 12:34:00
--  一个逻辑列的奇怪问题
代码中间有一行如下:blog是一个逻辑列
If dr("blog") = true Then  \'如果用true后面的全部代码都不会执行,用 数字 1 就没有问题,不知为什么?
......
end if



谢谢!
--  作者：HappyFt
--  发布时间：2017/4/13 13:03:00
--  
真的理解不了?
If dr("isblog") = 1 Then  \'如果用true程序会停止什么都不显示,不知为什么
    msgbox(1)
    strlog1 + = "Select " & "\'" & Date.Now() & "\',\'" & MyName & "\',\'" & MyGroup & "\',\'新增\',\'" & sqltbn & "\',\'" & r(dr("IDC")) & "\',\'" & r(dr("Idc2")) & "\',0" & vbcrlf & "Union All" & vbcrlf   \'--新增行行号都置为0
    msgbox(2)
End If
msgbox(strlog1)

上面的代码运行结果,三个msgbox的弹出框都显示为空的,连msgbox(1)也显示空的,如果true改为 1 则三个弹出框都不弹出,,,为什么?
--  作者：有点色
--  发布时间：2017/4/13 14:35:00
--  

首先，把你bin文件夹删除，重新打开项目，再测试代码，看弹出什么

 

msgbox("aaa" & dr("isblog"))

If dr("isblog") = true Then
    msgbox(1111)
    strlog1 + = "Select " & "\'" & Date.Now() & "\',\'" & MyName & "\',\'" & MyGroup & "\',\'新增\',\'" & sqltbn & "\',\'" & r(dr("IDC")) & "\',\'" & r(dr("Idc2")) & "\',0" & vbcrlf & "Union All" & vbcrlf   \'--新增行行号都置为0
    msgbox(2222)
End If
msgbox(33333)
--  作者：HappyFt
--  发布时间：2017/4/13 15:17:00
--  
第一个弹出aaatrue,第二三四个弹出框上全部显示是空的,
--  作者：有点色
--  发布时间：2017/4/13 15:35:00
--  

这一步做了吗？

 

把你bin文件夹删除，重新打开项目。

 

--------------不可能有这么奇怪的问题，加QQ远程看一下765427475

[此贴子已经被作者于2017/4/13 15:35:31编辑过]
--  作者：有点色
--  发布时间：2017/4/13 17:14:00
--  

 楼主写了 BeforeShowErrorMessage事件 的代码，把所有出错信息【吞掉了】。