MSHFlexGrid 控件的应用

领测软件测试网

　　 
　　应用心得　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

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

文章来源于领测软件测试网 https://www.ltesting.net/