MSHFlexGrid 控件的应用

时　间:2008-04-16 08:30:14
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要: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

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店