MSHFlexGrid 控件的应用

类别:VB语言 点击:0 评论:0 推荐:

应用心得                                  

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 getdata(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.recordset= adorsrecordset
   
    dim intCnt as integer
    intCnt = 0
    intCnt = intCnt + 1
    while not adorsrecordset.eof
        lngdatediff = datediff("n", adorsrecordset.fields("測位日時"), now)
        if lngdatediff > orarsrecordset.fields("gen_v_num").value then
            frmshownewdata.grdsaishin.row = intCnt
            dim j as integer
            for j = 0 to frmshownewdata.grdsaishin.cols - 1
                frmshownewdata.grdsaishin.col = j
                frmshownewdata.grdsaishin.cellbackcolor = &h80ffff
            next
        end if
        intCnt = intCnt + 1
        call adorsrecordset.movenext
    wend
    call ado_databaseclose
    datagrid_update = true
    exit function
datagrid_update_err:
    call ado_databaseclose
    datagrid_update = false
end function



本文地址:http://com.8s8s.com/it/it6583.htm