Public Sub us_viewData(ByVal v_MSFGrid As MSFlexGrid, ByVal v_rs As ADODB.Recordset)    '功能：填充msflexgrid控件    '参数：要填充的msflexgrid控件v_msfgrid,数据集v_rs    Dim i, j As Integer    v_MSFGrid.cols = v_rs.Fields.count + 1    v_MSFGrid.ColWidth(0) = 12 * 25 * 1    For j = 0 To v_rs.Fields.count - 1        v_MSFGrid.TextMatrix(0, j + 1) = v_rs.Fields(j).Name    Next    If v_rs.RecordCount > 0 Then        v_rs.MoveFirst        v_MSFGrid.rows = v_rs.RecordCount + 1        For i = 0 To v_rs.RecordCount - 1            For j = 0 To v_rs.Fields.count - 1                v_MSFGrid.TextMatrix(i + 1, j + 1) = v_rs.Fields(j)            Next            v_rs.MoveNext        Next    End If    For i = 1 To v_MSFGrid.cols - 1        v_MSFGrid.ColAlignment(i) = 4    Next i    End Sub