mshflexgrid控件非绑定实例

“工程”菜单(project)里边选“部件”(我用的是英文版的VB，中文的好像是“部件”，要不就是“组件”)

在弹出的对话框里找到
Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)
选中，确定之后，在工具箱里就有表格控件了。

例程

Private Sub Command1_Click()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "provider=msdaora;user id = hcs2000;password=lgwslgws;data source=HCS2000_192.168.100.200"
    Conn.Open
    Dim sql As String
    sql = "Select * from AA"
    Set Rs = Conn.Execute(sql)  '建立记录集
    Combo1.Clear
    Combo2.Clear
    Dim i As Integer
    i = 1
    MSHFlexGrid1.Rows = 15 '设置行数
    MSHFlexGrid1.Cols = 5 '设置列数
    Do While Not Rs.EOF
        MSHFlexGrid1.Row = i '设置当前行数
        MSHFlexGrid1.Col = 1 '设置当前列数
        'k=MSHFlexGrid1.TextMatrix(10,10)
        MSHFlexGrid1.ColWidth(1) = 2000 '表格列宽
        MSHFlexGrid1.Text = Rs.Fields(0) '设置填充内容
        MSHFlexGrid1.Col = 2
        MSHFlexGrid1.ColWidth(2) = 500 '表格列宽
        MSHFlexGrid1.Text = Rs.Fields(1)
        i = i + 1
        Rs.MoveNext
    Loop
    Conn.Close
End Sub