以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断二进制的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118631)
--  作者：ZJZK2018
--  发布时间：2018/5/7 18:19:00
--  如何判断二进制的值
老师你好：
我想判断当前行二进制的值是否为空，如果为空，则return，否则。。。

下面这段代码出错了，如何调整？

Dim val As String
Dim dr As DataRow = Tables("监理通知单").Current.DataRow
val = dr.SQLGetValue("WCRC")
If dr.SQLGetValue("WCRC") > "" Then
    Output.Show(Val)
Else
    Output.Show(11)
End If
--  作者：有点蓝
--  发布时间：2018/5/7 20:10:00
--  
用sql:http://www.foxtable.com/webhelp/scr/0696.htm

select 1 from 监理通知单 where WCRC is not null
--  作者：ZJZK2018
--  发布时间：2018/5/7 22:07:00
--  
有点蓝老师：
我看了许久，还是不行，能否帮我编辑一下，谢谢
--  作者：有点蓝
--  发布时间：2018/5/7 22:23:00
--  
Dim dr As DataRow = Tables("监理通知单").Current.DataRow
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "select WCRC from 监理通知单 where WCRC is not null and 编号=\'" & dr("编号") & "\'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    msgbox("有值")
Else
    msgbox("无值")
End If
--  作者：ZJZK2018
--  发布时间：2018/5/7 22:49:00
--  
有点蓝老师：

下面红色部分出错了：

Dim dr As DataRow = Tables("监理通知单").Current.DataRow
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "select WCRC from 监理通知单 where WCRC is not null and 编号=\'" & dr("编号") & "\'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    msgbox("有值")
Else
    msgbox("无值")
End If
--  作者：有点蓝
--  发布时间：2018/5/7 22:53:00
--  

属性：

  • CommandText
    字符型，用于设置SQL命令。
     
  • ConnectionName
    字符型，用于指定数据源名称，如果省略，则使用内部数据源。 
     
  • CommandTimeOut
    设置超时时限，默认为30秒，一般不需要设置此属性，除非需要进行非常耗时超过30秒的操作，以至于出现超时错误，此时可适当地加大CommandTimeOut属性的值。