设:表名=‘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 就行了
用MsFlexGrid控件显示数据库中的记录
最新推荐文章于 2022-11-12 10:11:02 发布