网页功能: 加入收藏 设为首页 网站搜索  
VB中MSHFlexGrid控件的应用
发表日期:2005-03-30作者:[转贴] 出处:  

应用心得                                  

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


我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 VB中MSHFlexGrid控件的应用
本类热点文章
  在VB应用程序中调用Excel2000
  在VB中使用水晶报表的一种简易编程方法
  BOM表查询的VB实现方法
  如何將Excel的文件导入Access文件
  把DataGrid的数据快速写入EXCEL
  Visual Basic 导出到 Excel 提速之法
  DataGrid 控件的使用
  VB中DataCombo和DataList 控件的使用
  ADO三大对象的属性、方法、事件及常数
  VB中MSHFlexGrid控件的应用
  VB+ADO检测数据库并发操作和处理并解决..
  用VB+WORD模版+数据库来制作格式合同..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00389