time 
设为首页】【收藏本站
当前位置: 主页 > 程序设计 > Visual Basic > VB控件 > VB中MSHFlexGrid控件的应用

VB中MSHFlexGrid控件的应用

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




应用心得                                  

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



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