关于MSFLEXGRID控件

Question

将msflexgrid绑定的data控件刷新一下！

Answer 1

即时flexgrid的版本更新到了7.0，数据绑定的功能仍然很
不好用。建议直接将表和flexgrid连接，不要再通过data
控件.

Answer 2

object.update
建议你用mshflexgrid

Answer 3

需要updaterst.update建议用mshflexgridDim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 4

需要updaterst.update建议用mshflexgridDim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 5

需要updaterst.update建议用mshflexgridDim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close