MSHFlexGrid 控件的应用

最新推荐文章于 2024-04-09 14:52:11 发布

原创最新推荐文章于 2024-04-09 14:52:11 发布 · 863 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#datagrid #function #integer #object

本文分享了mshflexgrid控件与msflexgrid控件的应用心得。介绍了二者绑定控件的差异，mshflexgrid与adodc绑定，msflexgrid与data绑定。还给出mshflexgrid控件应用示例，若记录集已产生，可直接显示数据并设置行颜色，同时给出相关代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

应用心得　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

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