设:表名=‘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 就行了

Logo

腾讯云面向开发者汇聚海量精品云计算使用和开发经验,营造开放的云计算技术生态圈。

更多推荐