请问：MSFlexgrid和MSHFlexgrid有什么区别？Data和Adodc呢？

[baobeizhu]

刚学，不明白，请各位给个较详细的回答。谢谢。

[lihonggen0]

MSHFlexgrid是MSFlexgrid升级版本

MSFlexgrid绑定Data控件 ，Data控件只能打开access 97,不能打开access 2000

MSHFlexgrid绑定Adodc控件 ,可以设置MSHFlexGrid1.DataSource = Rs数据源为一个记录集



Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic
Set MSHFlexGrid1.DataSource = Rs

[lihonggen0]

应用心得　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

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

[jordi2014]

楼上说的没错。