time 
设为首页】【收藏本站

2018年白小姐欲钱料: 白小姐彩图

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

VB中MSHFlexGrid控件的应用

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




白小姐彩图 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
------分隔线----------------------------
最新评论 查看所有评论
发表评论 查看所有评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:

  • Valentino 2017秋冬高级定制大秀 2018-09-08
  • 中国经济充当了世界经济发展的火车头。但是,作为世界经济火车头的中国,在世界主要经济体股市都走牛的情况下,为何熊途漫漫?这种不正常的现象,背后是我们资本市场的投融 2018-07-14
  • 别空谈,说说看,这个“简单的逻辑关系”是什么关系? 2018-07-13
  • “讲课带着泥土味,我们都爱听” 2018-07-13
  • 习近平:绿水青山就是金山银山 2018-07-12
  • 端午思屈原,为什么《橘颂》是一篇伟大的作品 2018-07-11
  • 2018年焉耆县旅游美食文化推介会在库尔勒市举行 2018-07-10
  • 《中国气候变化蓝皮书》:年平均气温显著上升 2018-07-10
  • 24小时智能无人便利店落户唐山 2018-07-09
  • 理货员忙不过来 宁波球迷把啤酒销量喝成井喷状态 2018-07-09
  • 回复@寻找失落的真理:跟你的铁环玩去!咱真的没兴趣碾压你也。 2018-07-08
  • 易烊千玺押中高考作文题?不仅会押,今年还唱过! 2018-07-07
  • 【北京达世行世纪车型报价】北京达世行世纪4S店车型价格 2018-07-06
  • 欢迎访问《北京体育大学学报》编辑部网站 2018-07-05
  • 282| 54| 470| 612| 74| 678| 255| 518| 126| 536|