time 
设为首页】【收藏本站

另版白小姐旗袍版: 白小姐彩图

当前位置: 白小姐彩图 > 程序设计 > Visual Basic > VB控件 > VB中MSHFlexGrid控件的应用

VB中MSHFlexGrid控件的应用

时间:2009-09-19 00:00 点击:2536次 字体:[ ]




白小姐彩图 www.5vq5o.cn 应用心得                                  

1)MSHFlexGrid控件 与 MSFlexGrid控件 的异同

 MSHFlexGrid控件与Adodc控件绑定,MSFlexGrid控件与Data控件绑定。

2)MSHFlexGrid控件的应用

如果记录集已经在程序中产生,则可以不与Adodc控件绑定,直接在MSHFlexGrid控件中显示数据,并且可以根据需要设置控件中行的颜色,如下例:   

Public Function DataGrid_Update() As Boolean
    On Error GoTo DataGrid_Update_Err
    Dim orarsRecordset As Object
    Dim adorsRecordset As New ADODB.Recordset
    Dim lngDateDiff As Long
   
    Call gGetData(CONST_GENERALTABLE_TIMEOUT_INFO, orarsRecordset)
    If Not ADO_DataBaseOpen(dskAttr, 1) Then
        DataGrid_Update = False
        Exit Function
    End If

    adorsRecordset.CursorLocation = adUseClient
    Call adorsRecordset.Open(CONST_VEHICLETABLE_RECORDSET_QUERIED, _
                            mobjDataSource.ConnectionString, , , adCmdText)
    frmShowNewData.grdSaiShin.ColWidth(0) = 800
    frmShowNewData.grdSaiShin.ColWidth(1) = 2000
    frmShowNewData.grdSaiShin.AllowUserResizing = flexResizeColumns
    Set frmShowNewData.grdSaiShin.DataSource = adorsRecordset
   
    Dim i As Integer
    i = 0
    i = i + 1
    While Not adorsRecordset.EOF
        lngDateDiff = DateDiff("n", adorsRecordset.Fields("測位日時"), Now)
        If lngDateDiff > orarsRecordset.Fields("GEN_V_NUM").Value Then
            frmShowNewData.grdSaiShin.Row = i
            Dim j As Integer
            For j = 0 To frmShowNewData.grdSaiShin.Cols - 1
                frmShowNewData.grdSaiShin.Col = j
                frmShowNewData.grdSaiShin.CellBackColor = &H80FFFF
            Next
        End If
        i = i + 1
        adorsRecordset.MoveNext
    Wend
    Call ADO_DataBaseClose
    DataGrid_Update = True
    Exit Function
DataGrid_Update_Err:
    Call ADO_DataBaseClose
    DataGrid_Update = False
End Function



本文地址 : //www.5vq5o.cn/plus/view-78885-1.html
标签: 控件 应用 as dim
------分隔线----------------------------
最新评论 查看所有评论
发表评论 查看所有评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:

  • 没能过准丈母娘这关 问题竟出在发际线 2019-05-21
  • 溜溜溜!10位外国驻华大使中文拜年视频合集来啦 2019-05-21
  • “生态+康养” 冰雪康养小镇项目落户沽源 2019-05-14
  • 您要明白的是,如果按照上海市的人口基数2500万计算的话,就算有100万的服务人员,平均每人也要保障25个人的预约服务.人要理性 2019-04-06
  • 回复@海之宁:你的卡点就在于不知道分配既涉及消费资料有涉及生产资料。 2019-04-06
  • 赵雅芝联合“我·爱我 女性健康工程”为乳腺健康共发声 2019-04-03
  • 合肥市庐阳中学启动“教师成长工程” 2019-04-01
  • 中年不发福!51岁景岗山紧身衣秀健硕身材 2019-04-01
  • 炒房炒房,炒了北京炒西安,炒了天堂炒人间,何时休?限价现价叫人害怕。 2019-03-27
  • “5·15”全国公安机关打击和防范经济犯罪宣传日 2019-03-27
  • 穿拖鞋开车酿成追尾事故 2019-03-20
  • 重庆市永川区:“1+8+X”模式探索基层人民调解新路子 2019-03-20
  • 巢湖市第三届少儿器乐比赛圆满落幕 2019-02-15
  • Valentino 2017秋冬高级定制大秀 2018-09-08
  • 中国经济充当了世界经济发展的火车头。但是,作为世界经济火车头的中国,在世界主要经济体股市都走牛的情况下,为何熊途漫漫?这种不正常的现象,背后是我们资本市场的投融 2018-07-14
  • 710| 117| 356| 949| 248| 480| 53| 190| 353| 32|