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

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:MSFLEXGrid源码

下一篇:Data控件使用有密码的Access数据库