用MsFlexGrid控件显示数据库中的记录

 设：表名=‘Tname’MsFlexGrid="fg"
1。完成给fg赋值
    sql="select * from tname "
    If RS.State = 1 Then RS.Close
    RS.Open SQL, adoCN, adOpenKeyset, adLockOptimistic
    fg.cols = rs.Fields.Count +1注释：如果表字段已知，完全可以直接赋值
    With FG
        .Redraw = False
        注释：相当于给fg清值
        .Rows = 1
        .Rows = 2
        iRow = 0注释：irow 自己定义的变量，表示当前行
        Do While Not RS.EOF
            注释：使fg.rows 随记录变化
            iRow = iRow + 1
            If iRow >= .Rows Then .Rows = .Rows + 1
             注释：给fg赋值
            .TextMatrix(iRow, 0) = rs(0)
            .TextMatrix(iRow, 1) = rs(1)
            ......
            RS.MoveNext
        Loop
    End With
End Sub

2 把fg值赋给rs
一条update ,或 edit 就行了