以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  sql没找到最大的到期更换日,怎么写判断?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83177)

--  作者:2
--  发布时间:2016/4/2 11:51:00
--  sql没找到最大的到期更换日,怎么写判断?
\'========================================================
\'函数名:EScalarSqlCommand
\'用于执行返回单个值的命令,
\'
\'========================================================
Dim sql As String = Args(0)
Try
    Connections(mydb).BeginTransaction() \'开始事务
    Dim cmd As New SQLCommand
    Dim value As Object 
    cmd.C
    cmd.CommandText = sql
    value = cmd.ExecuteScalar()
    Connections(mydb).Commit \'提交事务,所有操作生效
    Return value
Catch ex As Exception \'如果出错
    Connections(mydb).Rollback() \'回滚事务,撤销所有操作
End Try

,----------------------------------------------------------------
 Case "型号" \'以下代码校验工用具使用时限是否达标.
        Dim dat As Date
        Dim str As String
        str="Select Max(到期更换日) Fr om {工用具领用表} Where 车牌号 =\'" & e.DataRow("车牌号") & "\' and 型号=\'" & e.NewValue & "\'"
        dat=Functions.Execute("EScalarSqlCommand",str)

        If dat is nothing Then\'没找到最大的到期更换日,怎么写判断?

end if


--  作者:2
--  发布时间:2016/4/2 12:01:00
--  
找到答案了
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34922&replyID=&skin=1