请问怎么刷新MSHFlexGrid里的记录？在线等待，UP有分！

Question

我用一个Adodc作为MSHFlexGrid的DataSource
我想在添加记录的时候在MSHFlexGrid上体现出来，可怎么刷新也不行，哪位高手帮忙解答一下，在线等待！谢了！

Answer 1

adodc.refresh
mshflexgrid.refresh

Answer 2

adodc.refresh
mshflexgrid.refresh
即可

Answer 3

若还不行datasource设置nothing后再设成adodc后试试

Answer 4

Dim strcon As String
Dim conn As ADODB.ConnectionPrivate Sub Command1_Click()
Dim strsql As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
 strsql = "select * from BookInfo where BookId='" & Text1.Text & "'"
 rs.Open strsql, conn
 If Not rs.EOF Then
   MsgBox "书籍编号不可以有重复！"
 Else
   Adodc1.Recordset.AddNew Array("BookId", "BookName", "BuyTime", "BookNum", "Price", "Memo"), Array(CStr(Text1.Text), CStr(Text2.Text), CStr(Text3.Text), Text4.Text, Text5.Text, CStr(Text6.Text))
   Adodc1.Recordset.Update
   Adodc1.Refresh
   flexgrid1.Refresh
   Set flexgrid1.DataSource = Nothing
   Set flexgrid1.DataSource = Adodc1
 End If
End SubPrivate Sub Form_Load()
Set conn = New ADODB.Connection
strcon = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\data.mdb"
conn.Open strcon
End Sub

Answer 5

to zealot_zk(风中追风):
   adodc.requery 这句话行吗？
   mshflexgrid.rebind 它没有rebind方法呀？