| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 615 人关注过本帖
标题:请教下Public bbb As Boolean问题
只看楼主 加入收藏
Bendis
Rank: 1
来 自:福建厦门
等 级:新手上路
帖 子:47
专家分:0
注 册:2010-4-2
结帖率:93.75%
收藏
已结贴  问题点数:10 回复次数:2 
请教下Public bbb As Boolean问题
Private Sub Combo4_Change()
    If Trim(Combo4.Text) = "" Then
        List1.Clear
        List1.Visible = False
        Exit Sub
    End If
    If bbb = True Then
        List1.Clear
        List1.Visible = False
        Dim mrc As ADODB.Recordset
        txtsql = "select   DISTINCT 姓名 from xj where 学号 ='" & Trim(Combo4.Text) & "'"
        Set mrc = ExecuteSQL(txtsql)
        If mrc.EOF = True Then
            sss = MsgBox("没有此学号!", vbExclamation + vbOKOnly, "警告")
            Text2.Text = ""
            Exit Sub
        End If
        Text2.Text = mrc.Fields(0)
        Set mrc = Nothing

        Exit Sub
    End If
    Dim rst As ADODB.Recordset
    Dim str As String
    str = "select 学号 from xj where 学号 like'" & Trim(Combo4.Text) & "%' and 班级='" & Trim(Combo2.Text) & "' order by 学号"
    Set rst = ExecuteSQL(str)
    If rst.EOF = True Then
        List1.Clear
        List1.Visible = False
        Set rst = Nothing
        Exit Sub
    End If
    List1.Clear
    Do Until rst.EOF
        List1.AddItem rst.Fields(0)
        rst.MoveNext
    Loop
    Set rst = Nothing
    List1.Visible = True
End Sub
这里的bbb是什么意思,bbb在通用声明定义Public bbb As Boolean,这里bbb的作用我不太明白,它代表的是什么意思啊
搜索更多相关主题的帖子: bbb Public Boolean 
2010-05-11 12:24
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
bbb 是一个变量 名 ,
Public bbb As Boolean

声明的是 一个全局的 逻辑 型变量 .

具体什么意思,那么你只能搜索整个工程,看看这个 bbb 是在那里赋值的,才能去理解它代表的意思.


授人于鱼,不如授人于渔
早已停用QQ了
2010-05-11 13:04
Bendis
Rank: 1
来 自:福建厦门
等 级:新手上路
帖 子:47
专家分:0
注 册:2010-4-2
收藏
得分:0 
哦,好的 我看看下,待会有问题再问你,谢谢你最近都帮我啊
2010-05-12 09:14
快速回复:请教下Public bbb As Boolean问题
数据加载中...
 
   



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

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