应用心得
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 gGetData(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.DataSource = adorsRecordset
Dim i As Integer
i = 0
i = i + 1
While Not adorsRecordset.EOF
lngDateDiff = DateDiff("n", adorsRecordset.Fields("測位日時"), Now)
If lngDateDiff > orarsRecordset.Fields("GEN_V_NUM").Value Then
frmShowNewData.grdSaiShin.Row = i
Dim j As Integer
For j = 0 To frmShowNewData.grdSaiShin.Cols - 1
frmShowNewData.grdSaiShin.Col = j
frmShowNewData.grdSaiShin.CellBackColor = &H80FFFF
Next
End If
i = i + 1
adorsRecordset.MoveNext
Wend
Call ADO_DataBaseClose
DataGrid_Update = True
Exit Function
DataGrid_Update_Err:
Call ADO_DataBaseClose
DataGrid_Update = False
End Function
