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

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明