标题:赋值出现的信息
只看楼主
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
结帖率:68.89%
已结贴  问题点数:3 回复次数:2 
赋值出现的信息
Sub ParseTopicNode(sToken) Rem 转换普通帖子数据
    Dim title  
    Select Case sToken
        Case "folder"
            If CInt(Topic(14,i))>0 Then     
                TPL_Echo Dvbbs.mainpic(4)
            ElseIf CInt(Topic(13,i))>0 Then   就是提示 这里的CInt 出错
                TPL_Echo Dvbbs.mainpic(5)
            ElseIf CInt(Topic(12,i))>0 Then
                TPL_Echo Dvbbs.mainpic(6)
            ElseIf CInt(Topic(6,i))>CInt(Dvbbs.Forum_Setting(44)) Then
                TPL_Echo Dvbbs.mainpic(3)
            Else
                TPL_Echo Dvbbs.mainpic(2)
            End If

朋友们,请帮我看看这段代码
提示的错误是
无效使用 Null: 'Cint'
/bbs/index.asp, 第 690 行

一般数据库中的字段 出这样的错,可以给他赋值
但是提示的是  ElseIf CInt(Topic(13,i))>0 Then   中的
CInt  不能为Null,应该怎么办呢?
各位哥哥姐姐  帮帮忙
搜索更多相关主题的帖子: 赋值 
2009-12-28 16:03
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
得分:0 
if not (isnull(topic(14,i)) and  isnull(topic(13,i)) and  isnull(topic(12,i)) and  isnull(topic(6,i))) then

If CInt(Topic(14,i))>0 Then
TPL_Echo Dvbbs.mainpic(4)
ElseIf CInt(Topic(13,i))>0 Then
TPL_Echo Dvbbs.mainpic(5)
ElseIf CInt(Topic(12,i))>0 Then
TPL_Echo Dvbbs.mainpic(6)
ElseIf CInt(Topic(6,i))>10 Then
TPL_Echo Dvbbs.mainpic(3)
Else
TPL_Echo Dvbbs.mainpic(2)
End If

end if
这样改 还是不行

不懂----就无耻的下问吧----
2009-12-28 16:41
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:3 
这是循环里的代码?
2009-12-29 11:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-294499-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.091679 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved